movem . ユ 1 d3-d7,/- い 
まい os つい 1 ヒキ に ヨミ ヨン 
_move #511,d0 

> 0,x0 


らい 、 
、 on1yh1 ふ 
_cnt/grp1 
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は じ め に 








みな さん が , 数 多く の 機種 の な か か ら X68000 を 選択 し た 理由 は 何で し ょ うか . ゲー ムセン ター 
な み の す ば らし い ゲ ー ム ソフ ト を 楽し な こと が で きる か ら で す か . 68000CPU を 使っ て プロ グラ 
ミン グ し て みた いか ら で す か . 

た し か に X68000 の ゲー ム は すばらし く , 他 の パソ コン で は 味わう こと の で き な い 了 臨場 感 を 得 
る こと が で きま す . し か し , これ だ け の マシ ン を ゲー ム 専 用 機 と し て 終ら せ て し まう の は 非常 に 
も っ た いな い 話 で す . プロ グラ ミン グ の た め の 環 境 も , 他 の パソ コン で は 味わう こと の で き な い 
特徴 を も ちっ て いる こと に 気づい て いた だ きた いと 思い ます . 

本 書 は , X68000 で プロ グラ ミン グ を 楽し ん で みよ うと 考え て いる 方 を 対象 に . これ まで は と り 
あげ られ る こと が 少な か っ た プロ グラ ミン グ の 環境 を テー マ と する こと で 。 より 効率 的 な プロ グ 
ラミ ング に 役立て て いた だ けれ ば , と いう 意図 で 企画 きれ た も の で す . 

AB000 プ の み 務 2 の 才 や で 衝 生 区 が お 光生 9 











C 言語 ライ ク な 仕様 を 持つ X-BASIC 
・X-BASIC で 書か れ た ソー スプ ログ ラム を C 言 語 に 変換 する BASTOC コン バー タ 


わずか これ だ け の 工夫 (プロ グラ ミン グ 言 語 間 の 橋渡し ) が され て いる だ け で ,。 X68000 の プロ 
グラ ミン グ 環 境 は 大 きく 向上 し て いま す . つま り , X-BASIC か ら 実 行 フ ァイル を 作る まで の 過程 
が 垂直 方 向 に つなが る た め , 1 つの アプ リケーション を 構成 する それ ぞ れ の 関数 や モジ ュー ル 単 
位 で の 言語 の 使い 分 けが で きる わけ で す . で すか ら ,C 言語 だ け で は 難し か っ た グラ フィ ックス や 
サウ ンド の 扱い も きわ め て 容易 に な っ て いま すし , な に より , 実行 テス ト を し な が ら プ ログ ラミ 
ング を すす め る こと が で きる と いう , イン ター プリ タ な ら で は の メリ ッ ト も あり ます . 

そし て , 本 書 で は も う 1 つの “ 橋 ” を 提供 する こと に し ます . それ は X-BASIC の 外部 関数 を 
作る た め の ツ ー ル “MKB” で す . この ツー ル を 使え を ば, どの よう な 言語 で 書い た 関数 で も か ん た 
ん に 外部 関数 化す る こと が で きま すか ら ,。C 言語 の ライ ブラ リ を 作る の と 同じ 作業 を X-BASIC 
に 対し て 行う こと が で きる わけ で す . ' 
本 書 は , この よう に 統合 化 さ れ た 環境 を 紹介 する こと を 主眼 と する と と も に , MS-DOS か ら の 
ソフ トウ ェ ア の 移植 法 , Human68k の 解析 な ど , X68000 の ユメ ユーザー なら ぜ ひと も 知り た い 情 報 も 
盛り 込ん で あり ます . 

本 書 に よっ て , X68000 で プロ グラ ミン グ を 楽し お 方 が 一 人 で も ふえ ん こと を 願っ て お り ま す . 

















未 筆 に な り ま し た が , 本 書 の 執筆 に あたり ハー ドウ ェ ア ,。 ソ フト ウェ ア の ご 提供 を いた だ きま 
し た シャ ー プ 株 式 会 社 に 感謝 の 意 を 表し た いと 思い ます . 
































本 書 を 読む まえ に 


本 書 は , それ ぞ れ の テー マ ご と に 7 つの 章 か ら 構 成 さ れ て いま す の で , 興味 の ある 章 か ら 読み 
始め る こと が で きま す . 各 章 で 扱う チ テーマ と , あら か じ め 必 要 な 知識 に つい て か ん た ん に まとめ 
て お きま す . 








1 章 X68000 の プロ フィ ー ル 

X68000 の ハー ドウ ェ ア , ソフ トウ ェ ア の 概要 を 紹介 し て いま す . 68000CPU の 基礎 知識 。 メ モ 
リマ ッ プ , ソフ トウ ェ ブ ア 構成 等 を 知る こと が で きま す . 一 般 的 な コン ピュ ー タ の 基礎 知識 (86 系 
CPU や MS-DOS な どの 知識 ) を 必要 と し ます . 








2 章 オペ レー ティ ング シス テム Human68k 

X68000 標準 の DOS で あぁ る Human68k に つい て の 解析 を 行っ て い ます . Human68k は , MS 
-DOS と 良く 似 た DOS で す が , 細部 で は 異な っ て いる 部 分 も あり ます . この 剖 で は , そう し た 相 
違 点 に も 注意 を 払っ て 解説 し て いま す . MS-DOS に つい て の 比較 的 深い 知識 が 必要 で す . 





3 章 X-BASIC プロ グラ ミン グ ガ イド 
これ まで の 多く の パソ コン に 搭載 され て いた Microsoft 系 BASIC の 知識 を 前 提 と し て 。, 
X68000 オリ ジ ナ ル の 双 - BASIC の 使い 方 を 解説 し て いま す . 


4 章 X68000 の プロ グラ ミン グ 環 境 

X68000 上 で の プロ グラ ミン グ の 際 に どう し て も 必要 な ソフ トウ ェ ア パ ッ ケ ー ジ “C Compiler 
PRO-68k" に 用 意 さ きれ て いる 環境 を 紹介 し て いま す . と くに 膨大 な ライ ブラ リ 群 の 概要 を 解説 し 
て いま す の で , 付属 の り リファレンス マニ ュ ア ル を 開く まえ に 読ん で いた だ きた い 章 で す .C 言語 に 
つい て の 一 般 的 な 知識 が 必要 で す . 





5 章 X68000 らし い プ ログ ラミ ング 

X68000 の 環境 を 活か し た プロ グラ ミン グ を する た め の テ クニ ッ ク を 紹介 し て いま す . 自分 で 
書い た 関数 を か ん た ん に X-BASIC の 外部 関数 に する た め の ツ ー ル “MKB” も ここ で 紹介 し て い 
ます . C 言語 , X-BASIC の 知識 。 ア セン ブラ に つい て の か ん た ん な 知識 が 必要 で す . 





6 章 周辺 の ソフ トウ ェ ア 

プロ グラ ム 開 発 に 欠か すこ と の で き な い エディ タ , X-BASIC の 関数 を か ん た ん に 増設 する た 
め の 拡 張 関数 パッ ケー ジ , そし て 優良 プロ グラ ム の 宝庫 で ある パブ リッ ク ド メ イン ・ ソ フト ウェ ア 
に つい て 紹介 し て いま す . 
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本 書 を 読む まえ に 


7 章 MS-DOS か ら の ソフ トウ ェ ア 移 植 

これ まで MS-DOS の 環境 で プロ グラ ム を 書い て きた 方 は 。 それ ら の プロ グラ ム を X68000 に 
移植 し た いと 考え る で し ょ う . この 章 で は , MS-DOS か ら の 移植 時 に 注意 し な けれ ば な ら な い 点 
に つい て 解読 し て いま す . 





な お 。 4 章 。 5 章 は 。 ソフ トウ ェ ア パ ッ ケ ー ジ “C Compiler PRO-68k” を お 持ち で ある こと 
を 前 提 と し て いま す . これ ら の 章 を お 読み に な る 方 は , あら か じ め こ の パッ ケー ジ を 購入 され る 
こと を お 勧め し ます . 


サン ブル プロ グラ ム の 入力 に つい て 
本 書 で は , サン プル プロ グラ ム の リス ト を 2 種類 の 方 法 で 掲載 し て いま す . それ ぞ れ , 入力 時 
の 注意 点 を あげ て お きま す の で , 誤り の な いよ うに 入力 し て くだ さい . 





< X- 日 AI の 行 番号 の ある プロ グラ ムリ スト > 





1999 int x(255) = { 48, 47, 46, 45, 44 } 

1 int y(2550 ミ 人 12i12。 2 清 12, 12 ) 

1929 int d,Ex,Ey,h,i,tail = 4,tmpX,tmpy, Xl,y1 
1938 charn c=8 

1949 randomize(val(right$(time$,2))) 

1959 locate ,,9 

1969 cls 

1979 gosub 1519 











X-BASIC を 起動 させ, 行 番号 か ら 入 力 し て くだ さい . な お , この 形式 で 掲載 し た プロ グラ ム は , 
行 番号 に 依存 し た プロ グラ ム な の で , renum 命令 で 行 番号 の つけ 替え を 行う と 正しく 動作 し な く 
な る 場合 が あり ます . また , メモ リ 中 に すでに プロ グラ ム が 置か れ て いる と 正しく 動作 し な い の 
で , 入力 する まえ に new 命令 を 実行 し て お く の が 望ま し いで し ょ う . 

















く プ リン ト ア ウト 時 の 行 番号 の ある プロ グラ ムリ スト ッ > 





: jint x(255) = { 48, 47, 46, 45, 44 } 
: inty(255) = ミ * ビ 19912。 127187 2 } 
・ int Ex,Ey,tail = 4 

: randomize(val(right$(time$,2))) 
・char c= 

: locate ,,9 

cls 

: Write_Border() 





co =- コ の の の ⑦ な < で (一 





に ー 





- Human68k 上 の エディ タ (ED.X, windex 等 ) で ヾ : ? (コロ ン ) より 後ろ の 文字 を 入力 し て < 
だ さい ( 行 番号 を つけ ず に 入力 する ). 入力 中 の 行 番号 を 表示 で きる 機能 を エディ タ が 持っ て いれ 
ば , プロ グラ ムリ スト 中 の 行 番号 を 参照 し な が ら 入力 で きま す の で ,。 入力 ミス な ど を 減ら すこ と 
が で きま す . 
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本 書 を 読む まえ に 


| 


コン バイ ル を 行う まえ に 
本 書 で 掲載 し た プロ グラ ム を コン パイ ル す る た め に は , 環境 変数 等 を 正しく 設定 し て お か な け 
れ ば な り ま せん . 一 般 的 に 必要 な 環境 変数 と その 意味 は つぎ の と お り で す . 








path … 実行 ファ イル の ある ディ レク トリ へ の 絶対 パス を 書き 列 ね て お く 

lib … ライ ブラ リフ ァイル の ある ディ レク トリ の 絶対 パス を 書い て お ぉ く 

includ@e … イン クル ー ド ファ イル の ある ディ レク トリ の 絶対 パス を 書い て お く 

tmp … コン パイ ル 時 の テン ポラ リフ ァイル (一 時 ファ イル ) を 書き 出す ディ レク トリ 
を 書い て お く 


詳細 に つい て は , C Compiler PRO-68k に 付属 の ユー ザー ズ マ ニュ アル を 参照 し て くだ さい . 

な お , 本 書 に 掲載 きれ て いる プロ グラ ム を コン パイ ル す る た め の コ マン ドラ イン も あわ せ て 表 
記し て あり ます が , これ ら は 目的 の ソー ス フ ァ イル が カレ ント ディ レク トリ に 。 ライ ブラ リ は 環 
境 変数 ib の 示す ディ レク トリ に ある こと を 想定 し た も の に な っ て いま す . これ ら は 実際 の ディ 
レク トリ 構成 に よっ て , 変更 し な けれ ば な り ま せん の で , 注意 し て くだ さい . 

また , 本 書 に 掲載 きれ て いる サン プル プロ グラ ム の うち ,。 3 章 の ADPCM エディ タ と 5 章 の グ 
ラフ フィック エディタ は , CCompiler PRO-68k Ver.1.00 で は コン パイ ル す る こと が で きま せん . 
CCompiler PRO-68k の ユー ザー 登録 カー ド を シャ ー プ 株 式 会 社 に 返送 し て あれ ば 。 バー ジョ ン 
アッ プ ・ サ ービス を 受け る こと が で きま す の で 。 か な ら ず Ver.1.01 に バー ジョ ン ア ッ プ し て お い 
て くだ さい . 























アス キー 出版 局 か ら の お し ら せ g| 

















本 書 を 理解 する た め に は , サン プル プロ グラ ム を 実行 し て みる の が 一 番 で す . そこ で , 
掲載 され た プロ グラ ム を フロ ッ ピ ー デ ィ ス ク に 収録 し た “アス キー・ デ ィ ス クア ル バ ム 
30” を 用 意 し まし た . ぜひ ,。 ご 活用 くだ さい . 








Human68k 版 5 イン チ 2HD 価格 4800 円 送料 400 円 
(表示 価格 に は 消費 税 は 含ま れ て お り ま せん ) 













































































は じ め に 3 
本 書 を 読む まえ に 4 
] 童 XBBDDD の プロ フィ ー ル 
] .1 ハー ドウ ェ ア に 見 る 特徴 15 
] .1.1 基本 仕様 - 15 
1 .1.0 XBB000 の 周辺 機器 = 17 
圏 ハー ド デ ィ スク 17 玉 浮 動 小 数 点 演算 プロ セッ サ 17 
一 拡張 |)/0 ユ ニッ ト 17 
1 .1.3 XBB0O00 の 頭 悩 ウ に 18 
豊富 な レジ スタ 群 19 田 16M バ イト の メモ リ 空 間 20 
圏 メ モリ マッ プ ド |/O 21 画 特 権 状態 に よる メモ リ 管 理 機構 21 
較 例 外 負 f 里 22 豊富 な アド レッ シン グモ ー ド 22 
上.1.4 メモ リマ ッ ジ ディ - ー 半 23 
圏 メ イン RAM 23 圏 グ ラフ ィ ッ ク VRAM 23 田 テ スス ト VRAM 25 
圏 ス プラ イト VRAM 26 還 シ ステ ム |/O 領 域 26 圏 コ ユーザ ー|/O 領 域 27 
圏 ス タテ ィ ッ ク RAM 27 罰 CG-ROM 27 田 |OCS 27 
1.P ソフ トウ ェ ア に 見 る 特徴 27 
1.6.1 ソフ トウ ェ ア の 構成 27 
1 .56.5 シス テム ソフ トウ ェ ア の 基礎 知識 29 
圏 |OCS 29 国 DOS 29 
1.6.3 プロ グラ ム 言 語 の 特徴 ン 29 
較 X-BASIC 29 。 圏 C じ コン バイ ラ 30 田 BASTOC コ ン バ ー タ 30 
1 .6.4 ブロ グラ ム 開 発 を 助け る ツー ル 群 - ー 31 
園 ア セン ブラ 31 圏 リン カ 31 圏 デ バッ ガ 31 較 ア ゲー カ イ バ 32 
還 コ ン バ ー タ 32 玉 CASE.X 33 較 MOVE.X 33 一 IAR.X 33 
圏 TOUCH.X 33 田 TREE.X 33 


圏 WHERE.X 34 





1..5 ライ ブラ リ と 外部 関数 - 


較 ラ イブ ラリ 関数 35 較 外部 関数 35 





1.P.56 ソフ トウ ェ ア 資 産 の 蓄積 


画 ラ イブ ラリ 関数 の 拡張 35 陣 外 部 関数 の 拡張 37 





の 音 オペ レー ティ ング シス テム Human B8K 





P.| Human BBk の 概要 





41 





g.1.1 Human BBk の 構成 
g.1.5 Human BBk の 特徴 


41 





較 コ マン ド シ ェ ル (COMMAND.X) 42 田 ビ ジュ アル シェ ル (VS.X) 45 
圏 フ ァイル シス テム 46 還 デ バイ ス と ファ イル の 同格 化 47 





.P Human BBKkK の コン フィ ギュ レー ショ ン 


42 


48 





e.E.1 CONFIG.SY8 の 設 


48 





e.e.P 環境 変数 の 設定 


49 





c.d コマ ンド シェ ル 
.3.1 コマ ンド の 形式 


S0 





一 X 形 式 52 田 Z 形 式 54 画 R 形 式 55 


50 





.d.P コマ ンド の 検索 と 実行 
g.3.3 |/ の リダイレクト と バイ プ の し くみ 一 


55 





較 !//O リ ダイ レク ト 57 田 パ イプ 58 


c.4 DO08 





圏 DOS コ ー ル の 呼出 し 59 玉 Human 68k が 管理 し て いる その 他 の 例外 処理 62 


57 


S9 





.4.1 ファ イル の アク セス 
一 ファ イル の オー プン 63 田 フ ァイル ハン ドル 64 
一 フ ァイル の アク セス 65 一 フ ァイル ハン ドル の コピ ー 66 
較 フ ァイル の クロ ー ズ 67 

.4.P メモ リ 管 理 





圏 メ モリ 管理 ボイン タ 67 圏 メ モリ の 確保 68 
.4.3 プロ セス 管理 - 


63 


67 





一 プロ セス 管理 ポイ ンタ 69 罰 プ ロ セ ス の 起動 69 


c.D プ バ イス ドラ イ バ 





69 


72 





.5.1 ブロ ッ ク デ バイ ス と キャ ラク タテ バイ ス 
e.5.P デバ イス ドラ イ バ の フォ ー マ ッ ト 


72 





c.5.3 りり 0G と デバ イス ドラ イ バ の 間 の デー タ の 受渡 し 


73 





75 





c.5.4 キャ ラク タデ バイ ス へ の コマ ンド コー ド 


一 初期 化 /7 画 入 出力 75 玉 先 読み 入力 78 一 ステ ー タ スチ ェ ッ ク 79 


一 入力 バッ ファ の クリ ア 79 


76 





p.5.5 ブロ ッ ク デ バイ ス へ の コマ ンド コー ド 
本 初期 化 80 画 デ ィ ス ク 交 換 チ ェ ッ ク 82 画 入 出力 82 
一 ドラ イブ コン トロ ー ル と ドラ イブ セン ス 82 


c.D ファ イル シス テム 








e.5.1 ディ スク 内 の 構成 
還 FAT 84 。 還 デ ィ レ クト リ 855 


79 


84 


-84 








.5.P ファ イル の 検索 86 














e.7 其 本 入出 力 シ ステ ム 87 
g.7.1 IDCS の 提供 する サー ビス 88 
遼 ア セン プリ 言語 の 場合 89 還 C 言 語 の 場合 90 
e.8 XBB000 の 起動 と 終了 90 
e.8.1 起動 時 の 処理 一 -91 
較 ハ ー ド ウェ ア の 起動 91 田 BOOT プ ログ ラム の 起動 92 


圏 SRAM か ら の 情報 の 取得 92 玉 BOOT デ バイ ス の 選択 95 
圏 DOS 内 の 処理 98 
































.8.g 終了 時 の 処理 98 
9 章 X-BAIC じ プロ グラ ミン グ ガ イド 
d.| X-B ロ AIO の 設 103 
J.P X- ロ AGI の らら つ の バー ジョ ン 104 
3.3 X-BASIC の 基本 的 な 操作 105 
3.3.| プロ グラ ム の 編集 ・ -105 
3.3.5 ファ イル の 管理 一 ーーー 一 106 
3.3.3 プロ グラ ム の 実行 制御 108 
3.4 X- 日 ASIC の 基礎 109 
3.4.1 変数 の 扱い ーー ュー ーーー 109 
較 デ ー タ 型 109 面 配 列 変数 110 圧 グ ロー バル 変数 と ロー カル 変数 111 
圏 デ ー タ の 型 変換 111 脅 シ ステ ム 変 数 112 
3.4.8 演算 一 - - 113 





硬 算 術 演 算 113 遼 関係 演算 114 論理 演算 114 軒 関 数 115 
































3.4.9_- ス テー トメ シド 115 
d.5 X- ロ AGIC の 制御 構造 117 
3.5.1 制御 構造 ー ーー 一 117 
還 条 件 分 岐 118 。 還 / レ ー プ 119 画 そ の 他 122 
3.5.8 構造 化 ブ ログ ラミ ング と 抽象 化 - すっ > 122 
一 プロ グラ ム の 構造 化 122 一 プロ グラ ム の 抽象 化 123 
田 プ ログ ラム の モジ ュー ル 化 123 画 真 の 構造 化 プ ログ ラミ ング 124 
還 X-BASIC の 関数 定義 と 呼出 し 127 
3.65 標準 関数 129 
3.5.1 数 値 演算 関数 129 
3.5.P デー タ 変 換 関数 - = 130 
3.5.3 文字 列 処理 関数 131 
3.6.4 ファ イル 入出 力 - 134 




































































は:7 ダラ フィ ックス 137 
3.7.] 描画 関連 の 関数 137 
還 グ ラフ ィ ッ ク 画 面 の 構成 139 田 グ ラフ ィ ッ ク ペ ー ジ 139 
一 カラ ー の 考え か た 140 較 指 画 と 塗り つぶ し 141 
3.7.D スプ ライ ト 143 
田 ス プラ イト の し くみ 143 。 玉 ス プラ イト パタ ー ン の 表示 143 
圏 ス プラ イト 関数 144 還 バ ッ ク グ ラン ド 147 玉 バ ッ ク グ ラン ド 関 数 149 
証 ス プラ イト パタ ー ン ・ デ ー タ の 読込 み 150 
3.8 オー ディ オ 151 
3.8.|1 ADPCM - 151 
3.8.P FM 音源 合計 きき ーー デ 92 
田 MML に よる FM 音源 の 演奏 153 玉 自 分 で 音色 を 作る に は 156 
田 1 埋 ご と に 設定 する パラ メー タ 158 
田 オ ペレ ー タ ご と に 設定 する パラ メー タ 161 
3.9 マウ ス 163 
3.10 ADPCM エ ディ タ の 製作 165 
田 プ ログ ラミ ング 上 の 注意 点 165 田 プ ログ ラム の ポイ ント 166 
田 ADPCM エ ディ タ の 使い か た 166 
章 XBBDDD の プロ グラ ミン グ 環 境 
4.]| パッ ケー ジ の 内 容 を 確か め る 187 
4.1.1 コ つ の 言語 処理 系 ー ーーー 187 
較 C コ ン パ イラ 188 圏 X-BASIC イ ンタ ー プ リタ 189 
一 BASTOC コ ン バ ー タ 189 一 ア セン ブラ 190 
4.1.8 多数 の 開発 ツー ル ミー 
一 アー カイ バ (AR.X) 190 古 コ ン パ イラ ドライバ (CC.X) 191 
一 コン バー タ (CV.X) 191 一 シ ン ボ リッ ク デ バッ ガ (DB.X) 191 
田 エ ディ タ (ED.X) 191 一 リン カ (LK.X) 191 
圏 タ イム スタ ンプ の 更新 (TOUCH.X) 191 
4.1.3 多数 の ヘッ ダフ ァイル 192 
4.1.4 4 つの 標準 ライ ブラ リ 193 
4.p ライ ブラ リ の 概要 と 利用 の ヒン ト 194 
4.@.1 ビラ イブ ラリ (OLIB.A) 194 
較 デ ー タ の 操作 関数 と 変換 関数 194 画 入 出力 関数 196 
圏 ファ イル や ディ レク トリ の 操作 関数 199 画 シ ステ ム 関 数 199 
4.8.6 X-BASIC ラ イブ ラリ (BASLIB.A) 201 
4.6.3 DOS コ ー ル ライ ブラ リ (DOSLIB.A) 202 


較 入 出力 関数 202 園 フ ァイル や ディ レク トリ の 管理 202 
還 ド ライ ブ や ディ スク の 操作 203 還 シ ステ ム 関 数 204 圏 そ の 他 207 


10 








4.8g.4 ID0CS コ ー ル ライ ブラ リ (IOCSLIB.A) 207 
一 キ ー ボ ー ド セン ス 関 数 207 画 画 面 制御 関数 207 画 漢 字 処理 関数 211 
還 RS-232C や プリ ンタ の 制御 関数 211 画 マ ウス の 制御 や 読取 り 関 数 211 
一 サウ ンド 関数 211 画 シ ステ ム 制 御 関数 213 画 デ ィ ス ク ド ライ ブ 219 
軒 そ の 他 219 


4.3 開発 環境 を 整え よう - 219 
一 フロ ッ ピ ー デ ィ ス クシ ステ ム の 場合 220 
圏 ハ ー ド ディ スク シス テム の 場合 222 


5 章 XBBDDD ら し い プ ログ ラミ ング 














5.1 プロ グラ ミン グ の 基礎 知識 225 
5.1.1 コン パイ ラド ライ バ の 活用 225 
5.1.8 BASTOC コ ン バ ー タ で プロ グラ ミン グ 227 





一 BASTOC コン バー タ 7 つの 問題 点 227 。 圏 グ ラフ ィ ッ クエ ディ タ の 製作 229 
一 グラ フィ ッ ク エ ディ タ の 使い ご こち 244 

9- で プロ グラ ニラ シグ 245 
較 分 割 コ ン パ イル と は 245 軒 分 割 の 手法 246 田 LS コ マン ド の 製作 247 
一 L[S コ マン ド の 使い ご こち 258 














5.1] .4 関数 を ファ イル する 一 一 ーー に -258 
5.P 複数 の 言語 を 使っ た プロ グラ ミン グ 259 
5.P.] X-BASIC を 中 心 と し た プロ グラ ミン グ こ -260 
田 外 部 関数 を 組み 込む 260 。 田 X-BASIC か ら C 言 語 の 関数 を 使う 278 
5.P.P 〇 言語 を 中 心 と し た プロ グラ ミン グ ーーーー ーー 279 





一 C 言 語 か ら X-BASIC の 関数 を 使う 279 
較 C 言 語 ハ か ら アセ ン ブ ラ の プロ グラ ム を 使う 282 

















5.3 グラ フィ ッ ク エ ディ タ の 強化 288 

5.3.1 update 関 数 と undO 関 数 5 ー288 

5.3.8 外部 関数 へ の 追加 - = ーーーーーーーー 290 

5.4 より 高度 な プロ グラ ミン グ の た め に 298 
D 章 周辺 の ソフ トウ ェ ア 

5.| エディ イタ 一 windex 301 





圏 マ レル チ ウィ ンド ウノ マル チ テ キス ト 301 圏 マ ウス に よる 操作 302 
一 マク ロ 機 能 302 田 キ ー 定 義 な どの コン フィ ギュ レー ショ ン 302 
一 マル チ テ キス ト へ の 同時 検索 , 置換 304 

























































































B.p X-BASIC の 拡張 304 
B.g.1] 拡張 関数 パッ ケー ジ の 使い か た 304 
B.8.8 拡張 外部 関数 の 利用 例 一 ディ スク エディタ 307 

5.3 パブ リック ドメイン ・ ソ フト ウェ ア 314 
B.9.1 P 品 と は 314 
5.3.5 PDS の 入手 方 法 314 
6.9.3( 寺 2 の ター ラナ ルツ ラド TE ュー 314 
5.3.4 PDG を ダウ ン ロ ー ド する まで 315 
5.3.5 プロ グラ ム を 実行 する まで 319 
6.3.5 PEKIN NET に ある PD ら 8 321 

田 タ ー ミ ナル ソフ ト 321 田 デ ー タ コン バー タ 321 画 ア ー カ イ バ 322 

章 MS-DOG か ら の ソフ トウ ェ ア 移 植 

7.] 移植 の 可能 性 325 

7.P 移植 上 の 問題 点 325 

7.3 U の 違い 326 
7.3.1 プロ グラ ム の 大 き さ の 制限 一 ーーーーーー で 本 ー326 

圏 ヒープ 領域 の 問題 326 画 自 動 変数 の 大 き さ の 問題 326 
oo ーー ニー 一 ーー キ 327 
7.3.3 奇数 アド レス か ら の ワー ドア クセ ス 327 
7.3.4 デー タタ イプ の 大 き さ ーー 327 

7.4 D08 の 違い 328 

7.4.1 ファ イル シス テム の 違い -328 
田 フ ァイル 名 に 関す る 違い 328 圏 デ ィ ス ク フ ォ ー マ ッ ト の 違い 329 

7.4.0 D 品 B コ ー ル こと シス テム コー ル 329 
圏 bdos 関 数 の 場合 329 画 intdos 関 数 の 場合 330 玉 intdosx 関 数 の 場合 330 

7.4.3 ソフ トウ ェ ア 割 込み 一 334 

7.4.4 プロ セス の 扱い 334 

7.5 言語 仕様 の 違い 335 
7.5.1 ボイン タ の 扱い 335 
7.5.P アセ ン ブ ラ や その 他 の 言語 処理 系 と の リン ク 335 

7.56 イン クル ー ド ファ イル , ラ イブ ラリ の 違い 336 

較 グ ロー バル 変数 336 玉 標 準 型 337 
一 イン クル レル ー ド し な けれ ば な ら な い フ ァイル の 違い 337 
還 X-C の ライ ブラ リ に な い 関 数 338 
索引 341 








X59000 





1。 


_XBBDDO の ブ ロフ ィ イール 


シャ ー プ の XBB ロ DO は 。 卓越 し た グラ フィ ックス と サウ ンド 
機能 を 内 蔵 し た ユニ ー ク な マシ ン で す . すでに , これ ら の 機能 を 活 
ュー か し た アプ リケーション ソフ ト も 発売 され て お り , 他 の パソ コン で 

は まね の で き な い よう ね な 利用 環境 が 提供 され て いま す . 
また , 頭脳 部 分 に は , DDO と いう PU が 採用 され て いる 
こと か ら , プロ グラ ミン グ を ここ ろ ざ す ユ ー ザ ー に と っ て も 非常 

* 興味 を そそ られ る マシ ン だ と いえ る で し ょ う . 

ea - それ で は . ・ XGBOOD の 特 和 を 紹介 し て いく こと に し まし ょ う . 








1.| ハー ドウ ェ ア に 見 る 特徴 


1. ] ハー ドウ ェ ア に 見 る 特徴 


X68000 は これ まで の パー ソナ ルコ ンピュータ と は ひと 味 違う 独特 な 形 を し て いま す ( 写 真 1.1). 
本 体 は , 2 つの タワ ー か ら 構 成 さ れ て お り , 正面 か ら 見 て 右側 の タワ ー に は , CPU や 周辺 LSI な 
ど が 載っ た メイ ン ボ ー ド や 外部 拡張 イン ター フェ イス が , 左側 に は 電源 ユニ ッ ト や フロ ッ ピ ー 
ディ スク ・ ド ライ ブ が 収納 され て いま す . 

























































































写真 1.1 XBBOOO の 外観 


1.1.1 基本 仕様 


表 1.1 を 見 る と わか る よう に , CPU に は , 米国 Motorola 社 の 16 ビッ ト ・ マ イク ロ プ ロ セ ッ サ 
MC68000 (以下 68000CPU と 呼ぶ ) を 搭載 し て いま す . この CPU は , 最大 16M バイ ト ま で の メ 
モリ を 直接 アド レス する こと が で き 。, 8086CPU な ど が 1M バイ ト ま で の メモ リ し か 扱え な か っ た 
こと を 考え る と , 格段 に 扱い や すく な っ て いま す . 

表示 は 最大 768X512 ドッ ト の 解像度 を も ち , 最大 65,536 色 を 同時 表示 する こと が で きま すか 
ら , いま まで の パソ コン と は 比較 に な ら な い ほ ど リ アル な グラ フィ ッ ク を 扱う こと が で きま す . 
さら に スプ ライ ト 画 面 を 備え を て いま すか ら , グラ フィ ッ ク パ ター ン を ドッ ト 単 位 で スム ー ズ に 移 
動き せる こと が で きま す . 

も ちろ ん , サウ ンド の 機能 も 充実 し て いま す . な ん と いっ て も 興味 深い の は , アナ ログ 音声 を 
デジ タル に 変換 する ADPCM 機能 で す . これ は , オー ディ オ 用 の コン パク トディ スク に 使用 され 
て いる PCM 方 式 と 原理 的 に は 同じ も の で す . し か し , PCM 方 式 で 記録 きれ た デー タ と 比べ , 
デー タ 量 が 少な く て すむ と いう メリ ッ ト が あり ます . 

また , 8 オク ター ブ 8 重 和 音 の 演奏 が 可能 な FM 音源 も 搭載 され て いま す . FM 音源 は 。 シンセ 
サイ ザ と 同じ 原理 で , 非常 に 美しい 音 の 演奏 を する こと が で きる 機能 で 。 す で に ホビ ー 用 パソ コ 
ン で は 常識 と も いえ る で し ょ う . 

























































































| 章 X68000 の プロ フィ ー ル 






































CPU 68000(10MHz) 
IOCS : 128K バイ ト 
ROM | coG noM : 768K バイ ト 
メイ ン メ モリ : 1M バイ ト 
メモ リ テキ スト VRAM : 512K バイ ト 
RAM | グラ フィ ッ ク VRAM : 512K バイ ト 
スプ ライ ト VRAM  : 32K バ イト 
スタ ティ ッ ク RAM  : 16K バ イト 
テキ スト 1024X1024 ドッ ト x 4 プレ ー ン 
実 画面 エリ ア グラ フィ ッ ク 1024x1024 ドッ ト X 4 プレ ー ン 
(512x512 ドッ ト x16 プレ ー ン ) 
人 実 画面 エリ ア 1024xX1024 ドッ ト 時 
高 解像度 モー ド 768X512 ド ッ ト 標準 解像度 モー ド 512x256 ドッ ト 
テキ スト 表示 512X512 ドッ ト (オー バー スキ ャ ン ) 256x256 ドッ ト 
512X256 ドッ ト 512X512 ドッ ト 
256x256 ドッ ト (イン ター レー ス ) 
文 ド ッ ト 毎 に 65536 色 中 任意 の 16 色 指 定 可能 
久実 画面 エリ ア 1024 X1024 ドッ ト 時 
表 高 解像度 モー ド 768X512 ド ッ ト 標準 解像度 モー ド 512X256 ド ッ ト 
革 512X512 ドッ ト (オー バー スキ ャ ン ) 256x256 ドッ ト 
面 512X256 ドッ ト 512X512 ドッ ト 
モ 256X256 ドッ ト (イン ター レー ス ) 
。 ド ッ ト 毎 に 65536 色 中 任意 の 16 色 指 定 可能 
グラ フィ ッ ク 
表 表示 ⑯ 実 画面 エリ ア 512X512 ドッ ト 時 
示 高 解 像 度 モ ー ド 512X512 ドット 標準 解像度 モー ド 512x256 ドッ ト 
512x256 ドッ ト (オー バー スキ ャ ン ) 256xX256 ドッ ト 
能 256 X256 ドッ ト 512x512 ドッ ト 
(イン ター レー ス ) 
カ 娘 ド ッ ト 毎 に 65536 色 中 任意 の 色 指 定 可能 (1 面 )/, ドッ ト 毎 に 65536 色 中 任意 の 
256 色 指 定 可能 (2 面 )、 ドッ ト 毎 に 65536 色 中 任意 の 16 色 指定 可能 (4 面 ) 
@ パ ター ン 定 義 
サイ ズ : 16X16 ドッ ト プ パ ター ン 
定義 数 : 128 パ バターン (バック グラ ンド 2 面 使用 時 ) 
192 パタ ー ン (バッ ク グ ラン ド | 面 使用 時 ) 
256 パタ ー ン (バッ ク グ ラン ド 未 使用 時 ) 
スプ ライ ト 色 :1 パ ター ン に つき 16 色 65536 色 
信 表 示 
スプ ライ ト 座 標 系 : 1024X1024 ドッ ト 
表示 画面 : 512X512 ドッ ト (バッ ク グ ラン ド | 面 表 示 ) 
256X256 ドッ ト (バッ ク グ ラン ド 2 面 表 示 ) 
表示 制限 : 128 スプ ライ トノ 画面 
32 スプ ライ トノ ライ ン 
特殊 機能 スム ー ス スク ロー ルン 特殊 画面 制御 機能 ププ ライ オリ ティ 機能 
パレ ッ ト 機 能 半 透明 機能 プス ー パ ー イ ン ポ ー ズ 機能 
サウ ンド 機能 FM 音源 : 2 チャ ン ネ ル , 8 オク ター ブ 8 重 和音 同時 出力 


音声 合成 : AD-PCM (Adaptive Differential PCM) 





フロ ッ ピ ー デ ィ ス ク 
“ライブ 


1M バイ ト 5 イン チ ・ ミ ニ フ ロ ッ ピ ー デ ィ ス ク ・ ド ライ ブ (オー トロ ー ド プ オ ー ト イジ 
ェクト 機能 つき ) 2 基 搭 載 





入力 装置 


マウ ス ・ ト ラッ クボ ー ル , ASCII 準拠 フル キー ボー ド 





内 蔵 イ ンタ ー フ ェ イ ス 


プリ ンタ (セン トロ ニク ス 社 準拠 ) プ ご ジョ イス ティ ッ ク (前 面 1 個 , 背面 1 個 )/ プ テレ ビ 
コン トロ ー ル アナ ログ RGB 出力 プ ゾ オ ー デ ィ オ 入出 力 グ RS-232C ン 外部 フロ ッ ピ ー デ 
ィ ス ク プ ハー ド デ ィ スク プ マ ウス プイ メー ジ 入 力 端子 ノ 立体 視 端 子 な ど 








拡張 スロ ッ ト 





2 スロット 内 蔵 


* ACE-HD モデ ル は , 20M バイ ト ハ ー ド ディ スク 内 蔵 
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表 1.1 XBBOOO の 基本 仕様 


assam 


1.| ハー ドウ ェ ア に 見 る 特徴 


1.1. 己 XBB000 の 周辺 機器 

X68000 の 魅力 は 本 体 装備 の 機能 だ け で は あり ませ た 。 充実 し た 周辺 装置 が 用 意 き れ て いる こ 
と も 見 逃 せ ませ ん . 目的 に 応じ て 必要 な ハー ドウ ェ ア を 付加 する こと で , X68000 の 可能 性 は より 
広がる こと で し ょ う . 

現在 発売 きれ て いる 周辺 凌 置 の な か か ら 主 要 な も の を 紹介 し まし ょ う . 





還 ハー ド デ ィ スク 

X68000 を 実用 的 に 使 お うと する と , ハー ド デ ィ スク は ほ は 必需 品 だ と いえ る で し ょ う . 大 容量 と 高 
速 性 と いう 2 つの メリ ッ ト を 備え て いる ば か り で は な く , プロ グラ ム や デー タ な どの 多く の ファ 
イル の 管理 に は , 非常 に 便利 な 記憶 装置 で す (ACE-HD モデ ル に は 内 蔵 ). 





還 浮動 小数 点 演算 プロ セッ サ 

コンピュータ グラ フィ ックス な ど に 挑戦 し よう と する と 。 計算 処 理 に 時 間 が か か り ま す .。 その 
こう 人 な 方 に と っ て 。 演算 を 高速 に 実行 させ る た め の 浮 重 小 数 点 演算 プロ セッ サボ ー ド は , 強力 な 
武器 と な り ま す . 


層 拡張 |/ ユ ニッ ト 
この よう に , きま ざま な 周辺 装置 を 取り つけ て 拡張 し て いく と , X68000 背面 に ある 拡張 スロ ッ 


ト が 足り な く な っ て きま す . X68000 に は 拡張 スロ ッ ト が 2 つ し か あり ませ ん . その よ うな 場合 に 
は , 拡張 1/O ユニ ッ ト を 使用 する こ と で , 計 4 枚 の イン ター フェ イス を 収納 する こ と が で きま す . 











| 章 X68000 の プロ フィ ー ル 


1.1.3 XB8000 の 頭脳 

これ まで の 多く の 国産 の パソ コン で 採用 きれ て きた 16 ビッ ト CPU は , 米国 Intel 社 の 8086 ノ 
8088 と いう も の で , 現在 で は , その 上 位 で ある 80286, 80386 と いう CPU を 搭載 し た パソ コン が 
主流 に な りつ つ あ り ま す . 

その 一 方 で 。 ワ ー ク ステ ーション と 呼ば れる 比較 的 高 機能 な コン ピュ ー タ の 多く は , 米国 
Motorola 社 の 68000。 68020 と いう CPU を 採用 し て きま し た . X68000 は 。 この 68000CPU ( ク 
ロッ ク 10MHz) を 採用 し た 意欲 的 な マシ ン で ある と いえ る で し ょ う . 

さき さて, この 68000CPU は , 32 ビッ ト 長 の レジ スタ を も ち , アド レス バス 24 ビッ ト , デー タバ ス 
16 ビッ ト の マイ クロ プロ セッ サ で す ( 図 1.1). 















































5 MC68030 
32 ビ ッ ト CPU 


i80386 MC68020 
4 Z80000 


MC68012 
180286 1 
4 


16 ビッ ト CPU MC68010 
4A 





8000 
4 





i80186 Z8003 


1 MC68008 
1 デー タバ ス 8 ビ ピット 
Z8001 


I8088 
デー タバ ス 8 ビット 


i8085 一 ーーー 一 一 ww Z80 MC6809 
4 





1 8 ビッ ト CPU 
i8080 MC6800 





Intel 社 の 流れ Zilog 社 の 流れ Motorola 社 の 流れ 


図 1.1 主要 な CPU の 分 類 


豊富 な レジ スタ 群 





1.| ハー ドウ ェ ア に 見 る 特徴 





図 1.2 に 示す よう に 。68000CPU の 内 部 に は 32 ビッ ト 長 の レジ スタ が 17 個 , 16 ビッ ト 長 の レ 
ジス タ が 1 個 。 計 18 個 の レジ スタ が あり ます . これ ら は ,。 デー タレ ジス タ (D0-CD7), アド レス 
レジ スタ (A0 て CA7)。 プ ログ ラム カウ ンタ (PC),。 ステ ー タ スレ ジス タ (SR) に 分 類 さ れ ま す . 























31 0 
DO ア ギ ュ ムレ ー タ 
D1 ベー スレ ジス タ 
D2 カウ ント レジ スタ 
D3 デー タレ ジス タ 
D4 
D5 SP スタ ッ ク ポ イン タ 
De BP ベー スポ イン タ 
D7 リ SI ツー スイ ジ デ ックス 
AO 取 DI ディ ステ ィ ネ ーション イン デック ス 
A1 
A2 IP| | イン スト ラク ショ ン ポ イン タ 
A3 ステ ー タ ス フ ラ グ 
A4 > アド レス レジ スタ 
A5 CS コー ド セ グ メン ト 
A6 USP DS デー タ セ グ メ ント 
A7 SS スタ ッ ク セ グ メ ント 
SSP ES エキ スト ラ セ グ メン ト 
5 8 7 0 
SR ステ ー タ スレ ジス タ 
シス テム バイ ト ユー ザー バイ ト 


図 1. 選 BBD00 プ B08BBCPU の レジ スタ 構成 





68000CPU は , 32 ビッ ト 長 の レジ スタ を も っ て いま す の で ,1 命令 中 で 処理 で きる デー タ の サイ 

槍 は 。 ビッ ドー 1 ビタ ド リウ 7 トト (8 ビ ピット) レー ギド ニーGH6 ゼット ), ロン ダグ ワー ド (32 ビッ ト ) 
の 4 つ に な り ま す . また , 10 進数 を 2 進数 で 表す BCD と いう デー タ 型 を 扱う こと も で きま す の 
で 。 計 5 つの デー タ 型 を 扱え る わけ で す . 




















た だ し 。 ワ ー ド 。 ロ ング ワー ド の デー タ を メモ リ 上 に 置く と き は , アド レス の 低位 か ら 上 傍 バ 
イト , 下位 バイ ト の 順に 置き ます . 8086CCPU の ワー ド の デー タ と は 逆 に な り ま す の で 注意 大 用 
ses(| 較 3)。 


レー 
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実効 アド レス |-wy| 





実効 アド レス 一 叶 ] 








上 位 下位 
バイ ト バイト 





実効 アド レス 一男 









上 位 一 四 位 
バイ ト バイト 


1.3 BBDO00/B08BCPU の メモ リ 上 の デー タ 


一 1BM バイ ト の メモ リ 空 間 

8086CPU は 。 レジ スタ 長 が 16 ビッ ト し か な いた め ,。 64K バイ ト ま で の 物理 メモ リ し か アド レ 
ス す る こと が で きま せん . そこ で 。 セグ メン ト と いう ブロ ッ ク を 設け (1 セグ メン ト =64K バイ 
ト ), そ れ に セグ メン ト の 先頭 か ら の 相対 的 な アド レス (オフ セッ ト ) を 加算 する こと で 最大 1M バ 
イト の アド レス と 扱う こと を 可能 に し て いま す ( 図 1.4). 

し か し 68000CPU は , 24 ビッ ト の アド レス バス を も っ て いま す の で , セグ メン ト な どの よう な 
面倒 な 方 法 を 使わ ず に , 16M バイ ト の メモ リ を 直線 的 に 扱う こと が で きま す . こう し た 素直 な 設 
計 思 想 が ,。 マニ ア 好 み の CPU と いわ れる ゆえ ん な の で し ょ う . 



















68000 8086 
31 0 19 4 ggc6 2 ト の セグ メン ト 値 を 
セグ メン ト on00| “ピッ ト 上 位 へ ずら す 
ep 、 
(セグ メン ト 値 )X16 十 (オフ セッ ト 値 ) が 
加算 (①) 20 ビ ピッ ト の 物理 アド レス 
と な る 
19 、 反 0 
9000| オフ セッ ト | 
19 0 
物理 アド レス 





1.4 BBDD0D プ B0 ヨ BCPU の アド レス 指定 の 違い 
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還 メモ リマ ッ プ ド |/0 

68000CPU で の 周辺 装置 と の 入出 力 は 。 8086CPU の よう に 1/O ポー ト を 介し て デー タ の 読み 
書き を する と いう 方 法 で は 行い ませ ん . 入出 力 用 の レジ スタ が メモ リ 空 間 に 割 り 当 て られ て いま 
す の で 。 この 領域 を アク セス する こと で 行い ます ( 図 1.5). この よう に , 入出 力 用 の レジ スタ を メ 
モリ 空間 に 割り 当て る 方 法 を メモ リマ ッ プ ド !/0 方 式 と 呼び ます . 

この よう な 方 式 を 採用 レ し た メリ ッ ト は 。 メ イン メモ リ と 同様 な アド レッ シン グモ ー ド と 命令 で 





























1/O レジ スタ を アク セス で きる と いう こと で す . 








デー タ 
1/0 用 レジ スタ に 
デー タ が 書き 込ま 


I/0 レ ジス タ に い 、 
書き 込ま れ た デ 
ー タ は その まま 
周辺 機器 の レジ 
スタ へ 転送 され 
る 







レジ スタ に 書き 込ま れ た 
デー タ を も と に 制御 が 行 
われ る 


制御 回 路 


図 1.5 メモ リマ ッ プ ド !/0 


軒 特権 状態 に よる メモ リ 管 理 機構 
スー パー バイ ザー ステ ー ト , ユー ザー ステ ー ト と いう 2 つの 特権 状態 が あり ,68000CPU は この 
いずれ か の 状態 で 動作 し ます . スー パー バイ ザー ステ ト で は , CPU の すべ て の 命令 , すべ て の 








メモ リ に 対し て アク セス が 可能 で す が , ユー ザー ステ ー ト で は , シス テム に 重大 な 影響 を 及ぼ す 
いく つか の 命令 の 実行 と メモ リ の アク セス が 制限 され ます . 

この 状態 の 切換 え は , ステ ー タ スレ ジス タ の S ビッ ト に よっ て 判断 され ます が , 例外 処理 が 発 
生 し た 場合 。 強制 的 に スー パー バイ ザー ステ ー ト で 実行 きれ ます . 

68000CPU が 特権 機構 を も つこ と で ,。 ユー ザー の プロ グラ ム が シス テム の 管理 する 領域 を 破 王 
し た りす る と と を 防ぎ ます . つま り 。 DOS な どの シス テム ソフ トウ ェ ア は スー フエ な の H 
テー ト で ,。 ユー ザー の プロ グラ ム は ユー ザー ステ ー ト で 動作 させ れ ば , た と え プ ログ ラム が 奉 走 


し レ し て し まっ た よう な 場合 で も 。 シス テム ソフ トウ ェ ア に 与え る 影響 を ある 程度 防ぐ こと が で きま 
す . 
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一 例外 処理 

例外 処理 は , 外部 か ら の 割込み , 内 部 的 に 発生 し た 割込み , 命令 に よる 擬似 割込み に よっ て 開 
始 さ きれ , その 原因 に 応じ て , 例外 ベク タ と いう 68000CPU の 例外 処理 ルー チン の アド レス テー ブ 
ル で 示さ れる アド レス に 実行 を 移し ます . 

例外 が 発生 する と , 発生 し た 例外 に 対応 し た 例外 ベク タ の 内 容 を アド レス と みな し , その アド 
レス へ ジャ ンプ し , 処理 を 開始 し ます . 例外 処理 が 終了 する と , 例外 が 発生 する 直前 に 実行 し て 
いた 命令 の 次 の 命令 か ら 実 行 を 再開 し ます . 

また , 本 体 の 上 部 に ある INTERRUPT^ と いう スイ ッ チ を 押す と ,。 マス ク 不 能 割 込み (Non 
Maskable Interrupt) が か か り , どの よう な 場合 で も 割込み を か ける こと が 可能 で す 。 






































一 豊富 な アド レッ シン グモ ー ド 

アド レッ シン グモ ー ド と は , 扱い た い デ ー タ の ある メモ リ や レジ スタ を 指定 する 方 法 で , 表 1. 
2 の よう な 多く の アド レッ シン グモ ー ド が 用 意 さ きれ て いま す 。 これ ら の アド レッ シン グモ ー ド を 
使え ば , 配列 や 構造 体 な どの デー タ 構 造 を 比較 的 容易 に 扱う こと が で きま すし , プロ グラ ムカ ウ 
ンタ に 対し て 相対 的 な アド レッ シン グモ ー ド を 使え を ば ロー ドア ドレ ス に 依存 し な い プ ログ ラム 
を 記述 する こと が で きま す . 

アド レッ シン グ で 参照 され る レジ スタ は , デー タレ ジス タ と アド レス レジ スタ の 区 別 が ある だ 
け で , 8086CPU の よう に レジ スタ に よっ て 役割 が 決ま っ て いま せん か ら , 扱 い が 容 易 に な り ま す . 
た だ 残念 な こと に , 命令 に よっ て 使え を る アド レッ シン グモ ー ド に 制限 が あり ます か ら 注 意 が 必要 
2 








指定 し た レジ スタ の 内 容 を 値 と する 












アド レス レジ スタ 間接 
ポス トイ ンク リ メ ン ト 付 き Ei 








し た アド レス レジ スタ の 指す メモ リ の 内 容 を 値 と し た 後 , その アド レス レ 













アド レス レジ スタ 間接 ジス タ を イン クリ メン ト す る 
プリ デ ク リ メン ト 付 き 指定 し た アド レス レジ スタ を デ ク リ メン ト し た 後 , その アド レス レジ スタ の 指 
アド レス レジ スタ 間接 す メ モリ の 内 容 を 値 と する 









ディ スプ レー スメント 付き 指定 し た アド レス レジ スタ の 内 容 と 数 値 和 を アド レス と し て , それ が 指す メ 
アド レス レジ スタ 間接 モリ の 内 容 を 値 と する 


イン デック ス 付 き 指定 し た アド レス レジ スタ の 内 容 と も う 1 つ の レジ スタ の 内 容 と 数 値 の 和 を ア 










































アド レス レジ スタ 間接 ドレ ス と し て , それ が 指す メモ リ の 内 容 を 値 と する 

アプ ブ ソ リュート 指定 し た 数 値 (アド レス ) の 指す メモ リ の 内 容 を 値 と する 

イミ ディ エイ ト 指定 し た 数 値 を 値 と する 

ディ スプ レー スメント 付き プロ グラ ムカ ウン タ の 内 容 と 指定 し た 数 値 じ 和 を アド レス と し て , それ が 指す 
プロ グラ ムカ ウン タ 間 接 メモ リ の 内 容 を 値 と する 

イン デック ス 付 き プロ グラ ムカ ウン タ の 内 容 と 指定 し た も う 1 つの レジ スタ の 内 容 と 数 値 の 和 を 








プロ グラ ムカ ウン タ 間 接 アド レス と し て , それ が 指す メモ リ の 内 容 を 値 と する 





表記 アド レッ シシ グモ ー ド 


ト っ 
ト ゝ 


|.-| ハー ドウ ェ ア に 上 晃 る 特 敏 


還 電 824 メモ リマ ッ プ 
x モ リマ ッ プ を 図 1.6 に 示し ます . X68000 に は , 1M バイ ト の メイ ン メ モリ を は じ め と し て 。, 
天 容量 の メモ リ が 搭載 され て いま す . これ ら の メモ リ は , スー パー バイ ザー エリ ア と ユー ザー エ 
ア に 分 ける こと が で きま す . すでに 説明 し た と お り , スー パー バイ ザー エリ ア に は Human68k 
や TOCS。 テ キス ト VRAM, グラ フィ ッ ク VRAM, I/O ポー ト な ど が 割り 当て られ て お り , 原則 
と し て ユー ザー プロ グラ ム か ら は アク セス する こと は で きま せん . 残り は , ユー ザー エリ ア で あ 
。 プ ログ ラム を 実行 きせ る た め の 領 域 で す . 











メイ ン RAM 
(標準 実装 1 M バ イト ) 





メイ ン RAM 
(拡張 領域 ) 


シス テム |/O 





C00000 
グラ フィ ッ ク VRAM 

標準 実装 16K 
未 実装 

E00000 テキ スト VRAM 

E80000 | プ 0 エ リア 

F00000 CG-ROM 

FC0000 IOCS-ROM 


FFFFFE EFFFFE 


図 1.B メモ リマ ッ プ 


田 メイ ン HAM( ス ー パ ー バ イザ ー エ リア ノ ユ ー ザ ー エ リア ) 

標準 実装 で は 1M バイ ト , 最大 12M バイ ト ま で 拡張 で きま す . 普通 は ーー ザー エリ ア で す が , 
000000H--1FFFFFH まで の 空間 に は スー パー バイ ザー エリ ア を 指定 で きま す . メイ ン RAM 上 
の Human68k が 存在 する 領域 は スー パー バイ ザー エリ ア と な っ て いま す . 





田 グラ フィ ッ ク VHAM( ス ー パ ー バ イザ ー エ リア ) 

多く の パソ コン の グラ フィ ッ ク VRAM は , 1 ビッ ト が 画面 上 の 点 1 個 に 対応 し て いる ピット 
マッ プ 方 式 が 主流 で す が , X68000 の 場合 は , 1 ワー ド が 点 1 個 に 対応 し て いる ^ ワ ー ド マッ プ 方 
式 ′ と も いえ る 構造 を も っ て いま す ( 図 1.7). 

ワー ド と 点 と の 対応 関係 は , 次 の よう に な っ て いま す . 
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| 章 X68000 の プロ フィ ー ル 


NOaESE 一 ド 
256) 色 モード 
2659536 色 中学 下 





1 ワー ド 中 の 下位 4 ビッ ト が 点 1 個 の パレ ッ ト コ ー ド を 表す 
1 ワード 中 の 下位 8 ビッ ト が 点 1 個 の パレ ッ ト コ ー ド を 表す 
が 91009 す 1 あの 7 の 0 











* を 表す 











カラ ー コ ー ド と は , 実際 に 表示 され る 色 を 16 ビッ ト の ビッ ト パ タ ー ン で 表し た も の で , パレ ッ 
トコ ー ド と は , パレ ッ ト テ ー ブ ル の パレ ッ ト 番 号 を 指し ます . パレ ッ ト テ ー ブ ル に は , 16 色 モ ー 





@16 色 モー ド ( 最 大 4 画面 ) 


メモ リ 構 成 各 ビ ッ ト の 意味 
15 3。0 15 に 】 0 
oono9 ーー 生計 
- 画 面 0 パレ ッ ト 番 号 
# 0 て 15 
画面 1 パレ ッ ト テ ー ブ ル 
0 パレ ッ ト #0 
- 画 面 2 
DFFFFF - 画面 3 2 





色 コ ー ド は 65,536 色 
モー ド 時 の 色 コ ー ド 
と 同じ フォ ー マ ッ ト 
パレ ッ ト #15 








@256 色 モー ド ( 最 大 2 画面 ) 


Z 
定 ー |_ 押 め 。。 計 叶 還 還 目 
パレ ッ ト 番 号 
+ 0<255 


パレ ッ ト テ ー ブ プル 





ME パレ ッ ト #n 


色 コ ー ド は 65,536 色 
モー ド 時 の 色 コ ー ド 
と 同 展 プチ キー マツ ト 
パレ ッ ト #255 





@65536 色 モー ド ( 1 画面 ) 
1 色 コ ー ド 0 


GGGGGIRRRRRIBBBBBI 1 
43210143210|43210 


輝度 (0 : 穫 明 
暗 一 明 
青 (0~31) 


暗 一 明 
赤 (0 31) 

暗 つ 明 
縁 (0 て 31) 


C00000 





C80000 


1 : 不透明 ) 





DFFFFF 








1. フ グラ フィ ッ ク VHAM 


24 





ド 時 は 16 個 





, 256 色 モ ー ド 時 は 256 個 の パレ ッ ト が あり , パレ ッ ト 1 個 


|.| ハー ドウ ェ ア に 見 る 特徴 


に つき 1 個 の カラ ー コ ー 





ド を 割り 当て る こと に な り ま す . た だ し , 65,536 色 モ ー ド 時 は , 0 て 65,.535 まで の カラ ー コ ー ド を 


その まま 指定 する こと に な り ま す . 





これ ら に つい て は , 3 章 の グラ フィ ックス の 項 で 詳し く 解 説 す る こと に し まし ょ う . 


一 テキ スト VHAM( ス ー パ ー バ パ バイザー エリア) 
画面 上 の 1 ドッ ト が , VRAM 上 の 1 ビッ ト に 対応 する 

















ビッ トマ ッ プ 方 式 を 採 月 





日 し て いま す の 


で , 多種 類 の 文字 フォ ント を 表示 する こと も で きま す . 通常 の 文字 表示 は , ROM に 収め られ て い 


る フォ ント を テキ スト VRAM に 転送 し て 表示 し ます . 
テキ スト VRAM の 解像度 も , 768X512 ドッ ト , 512x51 


2 ドット, 256X256 ドッ ト の 3 種類 の 











うち か ら 選 べ ま すし , 第 2 の グラ フィ ッ ク 画 面 と し て も 使 


HH する こと が で きま す . 











ビッ トマ ッ プ 方 式 で は , 1 色 を 表示 する た め に 必要 な ビッ トマ ッ プ 画面 (プレ ー ン ) を 4 枚 ( 赤 , 


緑 , 青 。 輝度 ) 重 ね 合わ せ て 色 を 表現 し ます . つま り , 1 ドッ ト は 4 





と に な り ま す ( 図 1.8). 





・1 プレ ー ン の 1 ドッ 


パレット コピ ド 





色 コ ー ド は 0 ぐ 65535 


図 1.8 

















ビッ ト の デー タ で 表 さ れる こ 


ト が メモ リ の 1 ビット に 対応 


・4 プレ ー ン で 1 画面 を 構成 
・1 ド ッ ト あ た り 4 ビ 


ッ ト で , パレ ッ ト コ ー ド を 表す 


パレ ッ ト テ ー ブ ル 






#15 


テキ スト VHAM 
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弄 スプ ライ ト VHAM( ス 


スプ ライ ト と は , あら か じ め 定 


機能 で す . パタ ー ン が 表示 さき 


し て いま すか ら , これ ら と は 無関係 に パタ ー ン を 表示 し て 移動 きせ る 
16X16 ドッ 下 の グ ラジ シィ ッ ク パ ターン 


スプ ライ ト VRAM に は , 
そし て パッ メック グラ ンジ ド の パグ 


ー パ ー バ イザ デー エリ ア ) 

義 し て ある グラ フィ ッ ク パ ター ン を 画 [ 
印 や テキ スト 画 
こと が で きま す . 

ドッ ト ご と の 色 , 表示 位置 
ー ン と その 表示 位置 に 関す る 情報 も 格納 され て いま す . また , スプ 





] 上 に 表示 させ る た め の 
男 と は 独立 





日 
































れる スプ ライ ト 画 面 は 。 グラ フィ ッ ク 画 





























ライ トバ パ ター ン は 最大 256 催 











まで 定義 で きま す が ,。 バッ ク グ ラン ド を 1 面 使用 する 場合 は 192 個 





























まで ペッ ググ ジグ 和 み 層 る 2 面 


@ バッ ク グ ラン ド を 使用 し な い 





EBFFFF 


田 シス テム |/O 領域 (スー 


グラ フィ ツ 珠 ンス ジン ラ 











重用 する 場合 は 128 個 ま で し か 定義 むる こと が で きま せん ( 図 1.9). 





場合 


@ バック グラ ンド 1 面 の 場合 


最大 192 個 まで 


最大 256 個 まで パタ ー ン 定義 
パタ ー ン 定義 で きる 
で きる 


バッ ク グ ラン ド 
を 1 面 使用 可 


表示 画面 サイ ズ : 512※X512 
バッ ク グ ラウ ンド の 構成 単位 : 16X16 





@ バ ッ ク グ ラン トド 2 面 の 場合 


最大 128 個 まで 
パタ ー ン 定義 
で きる 


バッ タグ ラウ ンド 
を 2 面 使 

















上 

















表示 画面 サイ ズ : 256X256 
バッ ク グ ラン ド の 構成 単位 : 








8X8 


図 1. ヨ スプ ライ ト VHAM 


ルー リリ ザイ のり ア ) 
ト ,。 テ チ テキスト, キーボード, フロッピー ディスク, ハードディスク , 


FM 音源 。 AD-PCM な どの 各種 周辺 機器 と の 入出 力 を 行う た め の レ ジス タ の 領域 で す . また , 





シャ ー プ 製 の 拡張 ボー ド を 追加 し た 場合 


す . 


eX 





この 領域 に レジ スタ が 割り 当て られ る こと に な り ま 


5 








1.2 ソフ トウ ェ ア に 見 る 特徴 


還 時 ザ ー 1/ 領域 (ユー ザー エリ ア ) 
ュー ザー が 自作 の 拡張 ボー ド を 使っ て 周辺 機器 の 拡張 を 行っ た と き , 入出 力 に 必要 な レジ スタ 
な を ど を 用 意 す る た め の 領 域 で す . 














田 スタ ティ ッ ク 日 AM( ス ー パ ー バ イザ ー エ リア ) 

メモ リス イッ チ と し て , バッ テリ ー バ ッ ク ア ッ プ され て いる 16K バイ ト の スタ ティ ッ ク RAM 
SRAM) が 実装 され て いま す . 電源 を 切っ て も 内 容 の 失わ れ な い RAM ディ スク と し て も 使用 で 
きま す . 


田 〇 G-HOM( ス ー パ ー バ イザ ー エ リア ) 

文字 表示 を 行う た め の 文 字 フ ォ ン ト が 格納 され て いま す . 文字 フォ ント は , 8X8, 8X16, 16 ※ 
16。 12X12。 24X24, 12X24 ドッ ト の も の が 用 意 き れ て いま す . この うち 第 1, 第 2 水準 の 漢字 
フォ ント は, 16X16 ドッ ト と 24X24 ドッ ト の 2 種類 だ けし か 用 意 き れ て いま せん . 








一 |D 〇 CS( ス ー パ ー バ イザ ー エ リア ) 

周辺 機器 の 基本 制御 を 行う た め の サ ブル ー チ ン 和 群 で す . メモ リマ ッ プ 上 は , 256K バイ ト の 領域 
が 確保 し て あり ます が , 実際 に は 128K バイ ト だ けし か 使用 され て いま せん . 残り は 予備 領域 と し 
て 将来 の た め に 予約 され て いま す . 








1. つ ソフ トウ ェ ア に 見 る 特徴 


X68000 は ,。 これ まで の 一 般 的 な パソ コン と は 異な り , Human68k と いう ディ スク ・ オ ペレ ー 
ティ ング シス テム (DOS) を 起動 きせ な けれ ば な り ま せん . 本 節 で は , X68000 独自 の ソフ トウ ェ 
ア 環 境 に つい て , その 概略 を 紹介 す る こと に し まし ょ う . 





1 . 己 .1] ソフ トウ ェ ア の 構成 


本 体 と 同 梱 さん て いる ソフ トウ ェ ア は , 図 1.10 の よう な も の で す . DOS で ある Human68k。, 
-BASIC, 日 本 語 入 力 フ ロン ト エ ンド ・ プ ロ セ ッ サ ASK68k, 日 本 語 ワ ソー プロ , その ほか 
Human68k の コマ ンド が いく つか あり ます . X-BASIC を 中 心 と し た か ん た ん な プロ グラ ミン グ 
を する だ け 北 ら , これ だ け で も 赴 分 MM し ょ 2 う 8 

ま た, C 言語 を 中 心 と し た 本 格 的 な プロ グラ ミン グ を 始め よう と 思っ た ら , シャ ー プ か ら 別 売 さ 
れ て いる C Compiler PRO-68k と いう パッ ケー ジ を 購入 する こと に な り ま す . 本 書 で は , この 
パッ ケー ジ に は いっ て いる ソフ トウ ェ ア 資 産 の 利用 方 法 に つい て 紹介 する こと に し ます . 





















































2 ノ 
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本 体 付属 の ソフ トウ ェ ア 


トー DOS 

L- Human68K (MS-DOS ライ ク な 機能 を 持つ DOS) 

トー デバ イス ドラ イ バ 

トー PRNDRV.SYS (プリ ンタ ドラ イ バ ) 

トー PCMDRV.SYS (AD-PCM ドラ イ バ ) 

| _ASK68K.SYS (学習 機能 つき 日 本 語 フ ロン ト エ ンド プロ セッ サ ) 
トー RAMDISK.SYS (RAM ディ スク ドラ イ バ ) 

L_ SRAMDISK.SYS (SRAM を 使っ た RAM ディ スク ドラ イ バ ) 


トー 外部 コマ ンド 

L_ COMMAND.X (コマ ンド プロ セッ サ ) 

L_ VS.X (マウ ス を 使っ た ビジ ュ ア ル シ ェ ル ) 

L_ ATTRIB.X (ファ イル の 属性 の 表示 変更) 
トー CHKDSK.X (ディ スク の 状態 を 調べ る ) 

L_ COPY2.X (ハー ド デ ィ スク 上 の デー タ の 退避 復帰 ) 
トー CUSTOM.X (CONFIG.SYS の 作成 ) 

L_ DISKCOPY.X (フロ ッ ピ ビー ディ スク の コピ ー) 
トー DUMP.X (ファ イル を 16 進 表 示す る ) 

トー FC.X (ファ イル 内 容 の 比較 ) 

L_ FIND.X (文字 列 を ファ イル の 中 か ら 検 索 ) 

トー FORMAT.X (ディ スク の 初期 化 ) 

L_- KEY.X (ファ ンク ショ ン キ ー な どの 設定 ) 

L_ MORE.X (ファ イル の 内 容 を | 画面 ご と に 区 切っ て 表示 する ) 
トー PR.X (ファ イル 内 容 の ペー ジ 整 形 ) 

トー SORT.X (デー タ の ソー ト ) 

L_- SPEED.X (シリ アル イン ター フェ イス の 設定 ) 
L- SWITCH.X (メモ リス イッ チ の 設定 ) 

トー SYS.X (シス テム の 転送 ) 

トー USKCGM.X (外字 の 作成 ・ 登 録 ・ 削 除 ) 

L_ ED.X (プロ グラ ム や 文書 を 作成 する ) 

トー ED.HLP (ED の 操作 説明 ) 

L_ DICM.X (辞書 の メン テ ナ ン ス を 行う ) 


トー X-BASIC 

ト _- BASIC.X (C 言語 風 の イ ンタ ー プ リタ 型 BASIC) 

ー 外部 関数 

トー グラ フィ ッ ク 関 数 (GRAPH.FNC) 

トー スプライト 関数 (SPRITE.FNC) 

トー AD-PCM 関数 (AUDIO.FNC) 

トー FM 音源 関数 (MUSIC.FNC) 

トー マウ ス 関 数 (MOUSE.FNC) 

トー ジョ イス ティ ッ ク 関 数 (STICK.FNC) 

L カラ ー イ メー ジ ユ ニ ッ ト 関 数 (IMAGE.FNC) 

[ーー アプ リケーション 

|_ WP.X (マル チ ウ ィ ン ド ウ の 日 本 語 ワ ー ド プロ セッ サ ) 

トー ImgSample.BAS (イメ ー ジ ユニ ッ ト の 簡易 制御 ソフ ト ) 

L_ DEFSPTOOL.BAS (スプ ライ ト パ タ ー ン 定義 ユー ティ リティ ) 
トー DEFSPTOOL.HLP (DEFSPTOOL.BAS の 操作 説明 ) 

トー- X68000 の テー マ . BAS (FM 音源 に よる デモ ンス トレ ーション ) 
し - SYMPHONIA.BAS (FM 音源 に よる デモ ンス トレ ーション ) 














図 1.10 本 体 付属 の ソフ トウ ェ ア 

















1.2 ソフ トウ ェ ア に 見 る 特徴 


1 . 選 己 シス テム ソフ トウ ェ ア の 基礎 知識 

68000 が どん な に すぐ れ た ハー ドウ ェ ア を 備え て いて も , それ を 効率 よく 利用 する た め の ソ 
テトラ ウェ ア が 用 意 き れ て いな けれ ば , 宝 の も ち 腐 し に な っ て し まい ます . そこ で , 基本 的 な 制御 
り サ ービス を 提供 する シス テム ソフ トウ ェ ア , すなわち DOS の 必要 性 が 出 て くる わけ で す . 
8086CPU を 搭載 し た パソ コン で は , Microsoft 社 の MS-DOS が 主流 と な っ て いま す が , 
68000 で は , Human68k と いう オリ ジ ナ ル の DOS を 搭載 し て いま す . オリ ジ ナ ル と は いっ て 
、 操作 性 や 内 部 の し くみ な ど は , MS-DOS と 非常 に 似 て いま す . 内 部 構造 も 次 の よう な 3 つの 
と 分 れ て お り , それ ぞ れ の 役割 を 明確 に 分 離し て いま す . 





























咽 





軒 |DC 

これ まで の パソ コン の 多く は , BASIC を ROM で 搭載 し て いま し た が , X68000 の ROM に は 
ハー ドウ ェ ア に 密着 し た 基本 的 な 制御 サブ ルーチン だ け で , BASIC は 収め ゆら れ て いま せん . 周辺 
機器 を 制御 する に は , 各 言 語 に 用 意 さ れ て いる 関数 を 通し て この サブ ルー チン を 利用 する こと に 
りり まず 。 





還 0 

アプ リケーション プロ グラ ム と X68000 と の ソフ トウ ェ ア 的 な イン ター フェ イス で ,。 プロ グラ 
ム を 動作 させ る た め の さ ま ざ ま な サー ビス を 提供 し ます . この サー ビス を 受け る こと を , DOS 
コー ル と 呼ん で いま す . DOS コー ル に よっ て 受け られ る サー ビス に は , 主 に ファ イル の 管理 。 メ 
モリ の 管理 . プロ セス 管理 な ど が あり ます . 








まだ 日 プロ グラ ム 言 語 の の 特徴 


X68000 で 利用 で きる 主 な プロ グラ ム 言 語 は , X-BASIC, C 言語 . アセ ンプ ブラ の 3 つ で す .。 し 

か も , メメ -BASIC で 書い た プロ グラ ム を C 言 語 の ソー スプ ログ ラム に 変換 する コン バー タ も 用 意 
され て いま すか ら , 必要 な 部 分 を 最も 適し た 言語 で プロ グラ ム す る こと が で きま す . つま り , 主 
な 流れ は C 言 語 で 記述 し , グラ フィ ッ ク や サウ ンド な ど , C 言 語 か ら の 操作 が 面倒 な 箇所 は 
-BASIC で 記述 する , そし て 高速 な 処理 が 要求 され る 部 分 は アセ ンプ ブラ で , と いっ た こと が か ん 
た ん に で きる よう に な っ て いる の で す . 





圏 X-BAI 

メ -BASIC は 。 お な じみ の イン ター プリ タ 型 BASIC で す . イン ター プリ タ は , 実行 速度 の 面 で 
は C 言 語 な どの コン パイ ラ に 劣り ます が 。 プ ログ ラム を と りあ え ず 書い て し まえ ば あと は 手軽 
に 実行 の テス ト を する こと が で きる と いう メリ ッ ト も あり ます . また , 実行 し て みた 結果 , エラ ー 








ば 
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な ど が 発生 し て も , どこ で どの よう な エラ ー が 発生 し て いる の か と いう こと が わか り ま す の で 。 
ある 意味 で 優 ん た デバ ッ グ 機能 を も っ て いる と も いえ ます . 

X-BASIC 本 体 に は , キー ボー ド , 画面 ,。 フ ロッ ピー ディ スク な ど を 制御 する た め の コ マン ド , 
ステ ー ト メン ト , 標準 関数 な ど , 必要 最低 限 の 機能 し か も た せ て あり ませ ん . 周辺 装置 を 制御 し 
よう と 思っ た ら , X-BASIC 本 体 に 外部 関数 ファ イル を 組み 込む こと で 機能 の 拡張 を 行い ます . た 
と 時 展 』 ダ ラコ AWK クライド , マツ ああ ジョ ステラ イッ ク , カラ ー イ ルル 守 * 所 ラッ タ ド の 
制御 に か か わる 関数 は , すべ て 外部 関数 と し て 組み 込ま な けれ ば 使う こと は で きま せん . 

メ -BASIC は , この よう な コン ポー ネン ト に な っ て いる こと か ら , 不 必要 な も の は と り は ず し , 
あら た に 必要 に な っ た 外部 関数 や 自分 で 作っ た サブ ルー チン を 人 外部 関数 と し て 組み 込ん で し まえ 
る と いう 柔軟 性 を も っ て いま す . 






































田 じ コン パイ ラ 

C Compiler PRO-68k と いう 商品 名 に も 表れ て いる よう に , C 言語 は , ソフ トウ ェ ア 開 発 の 中 
心 に 位置 づけ られ て いま す . また , X-BASIC で 物足りな い 部 分 は , BASTOC コン バー タ で 変換 
後に C 言語 の ソー スプ ログ ラム ・ レ ベル で 修正 する と いう こと も で きま す . 

C コ ン パ イラ に は , 標準 関数 , DOS コー ル 関 数 , IOCS コー ル 関 数 。 BASIC 関数 の 4 種類 の ラ 
イブ ラリ が 用 意 き され て お り ,X68000 の すべ て の 機能 を 呼び 出す こと が で きる よう に な っ て いま す . 











田 BASTODUOC コン バー タ 

C Compiler PRO-68k に は , XX-BASIC の プロ グラ ム を C 言 語 の ソー スプ ログ ラム に 変換 する 
コン バー タ が 付属 し て いま すか ら ,C 言語 で プロ グラ ム し た と き と 同 じ よ うに , コ ン パ イル し て 実 
行 速度 を 上 げ る こと も で きま す ( 図 1.11). 





コン バー ト 


BC.X 





コン パイ ル 


movedq 
trap #15 





貞 アセ ンプ ブル 


1 .1 1] ブロ グラ ム 開 発 の 手順 
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富 。 58000 の 特徴 で も る る グラ フィ ッ ク や サウ ンド を 利用 する に は , C 言語 より も え -BASIC 
上 放 記 デラ ム し た ほう が , 効率 よく 作業 を すす め る と と が で きま すか ら , プロ グラ ム の 種類 に 応 
ma ニテ ョ グラ ム 言 語 を 使い 分 ける と いう テク ニッ ク を 使う こと も で きま す . 











」 己 .4 ブロ グラ ム 開 発 を 助け る ツー ル 群 
ご の よう な 言語 で 開発 する に し て も , 開発 の 途中 で は いろ いろ と 面倒 な こと が 多い も の で す . 
ー ネ プ ログ ラム や オブ ジェ クト ファ イル の 管理 な ど は , と < く に 面倒 で す . C Compiler PRO-68k 
= 巨 これ ら を サポ ー ト する コマ ンド が いく つか 用 意 き れ て いま す . ここ で は , その な か か ら , と 
に ソフト ウェ ア 開 発 に 必要 な も の を 選ん で 紹介 し まし ょ う . 
































還 アセ ン ブ ラ 

ミ Assembler (AS.X) は 。 68000CPU 専用 の マク ロア セン ブラ で す . AS.X は 68000CPU の アセ 
ンプ ブリ 言 語 で 書か ん た ソー ス フ ァ イル (拡張 子 が .S) を アセ ン ブ ル し て , オブ ジェ クト ファ イル ( 拡 
吉 子 が .O) を 生成 し ます . この オブ ジェ クト ファ イル を , この あと 紹介 する XLinker で リン ク す る 
。 形式 の 実行 可能 ファ イル が 生成 され ます . AS.X の 主 な 特徴 に は 次 の よう な も の が あり ま 








・ 分 割 ア セン プル 機能 

・ マ クロ 定義 

・ 分 岐 命令 の 前 方 参照 の 最適 化 

・ イ ンク ルー ド フ ァイル の 挿入 
豊富 な 擬似 命令 

・ 条 件 つき アセ ンプ ブル 機 能 


田 リン カ 

XLinker(LK.X) は ,。 AS.X で アセ ンプ ブル さ れ た オブ ジェ クト ファ イル を リン ク し て , X 形式 の 
実行 可能 ファ イル を 生成 し ます . た と えば ぱ , 複数 の オブ ジェ クト ファ イル を リン ク し て , 1 つの 実 
行 可 能 フ ァイル を 生成 し た り 。 アー カイ ブフ ァイル の な か か ら 必 要 な 部 分 だ け を リン ク す る こと 
が で きま す 。. 





画 デバ ッ ガ 
XDebugger (DB.X) は 68000CPU 専用 の シン ボリ ッ ク デ バッ ガ が で, ソー スプ ログ ラム 中 で 定義 
され た シン ボル を 参照 し な が ら デ バッ グ す る こと が で きま す . DB.X の 主 な 機能 を 次 に 示し ます . 
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・ ア セン ブル ン 逆 アセ ンプ ブル 機 能 

・ プ ログ ラム 中 の 任意 の 場所 で の 実行 停止 
・ メ モリ 内 容 の ダン プ , エディ ッ ト 

・ レ ジス タ の 参照 と 変更 

・ プ ログ ラム の 実行 , コマ ンド ライ ン の 設定 
・ プ ログ ラム の 実行 を トレ ー ス 

・ シ ン ボ ル の 参照 

・DB.X が 独自 に 用 意 し た 変数 の 扱い 
・10 進数 と 16 進数 の 計算 機能 

・ デ ィ ス ク を セク タ 単 位 で アク セス 

・ フ ァイル の ロー ド と セー プ ブ 


一 アー カイ バ 

XArchiver (AR.X) は , 複数 の ファ イル を 1 つの ファ イル (アー カイ ブフ ァイル , 拡張 子 は .A) に 
まとめ て 管理 し ます . 

プロ グラ ム を 開発 し て いる と , た いて い の 場 合 1 つの 実行 可能 ファ イル に 対し て 複数 の ソー ス 
ファ イル や オブ ジェ クト ファ イル を 作成 する こと に な り ま す . この よう な 開発 途中 に 作成 する 
ファ イル は , 数 が 増え る に 従っ て 管理 が 難し く な り ま す (DIR コマ ンド を 実行 する と 何 百 個 と い 
う オ ブ ジ ェクト ファ イル が 表示 され る と き や , 何 百 個 と いう ソー ス フ ァ イル か ら 1 つ を 選ん で エ 
ディ ッ ト す る と きのこ と を 想像 し て くだ さい ). そ こ で 関連 の ある ファ イル ご と に まとめ て 管理 す 
る と き に , この アー カイ バ AR.X が 役立つ の で す . 

た だ し AR.X に よっ て 管理 で きる ファ イル は , オプ ジェ クト ファ イル と ソー ス フ ァ イル の 2 つ 
だ け で す . 




















還 コン バー タ 

XConverter(CV.X) は ,。 リ ンカ が 作成 し た X 形式 の 実行 可能 ファ イル を 他 の 形式 に 変換 する コ 
マン ド です. 変換 で きる 形式 (フォ ー マ ッ ト ) は 次 の 4 種類 で す (実行 可能 ファ イル の 各 形 式 に つい 
て は p.52 を 参照 ) . 


・R 形式 の 実行 可能 ファ イル 
・Z 形式 の 実行 可能 ファ イル 
・ イ ン テ ル HEX フォ ー マ ッ ト 
・ モ トロ ー ラ S フォ ー マ ッ ト 


1.2 ソフ トウ ェ ア に 見 る 特徴 


請 所 形式 に 変換 する 場合 が 最も 多い よう で す . また イン テル HEX フォ ー マ ッ ト と モト 


モビ ラー 


一 ヨ S フォ ー マ ッ ト は , 主 に PROM ライ タ に 出力 する と き に 使用 され ます . X68000 上 で 実行 


ョ ヨミ テニ タラ ム ろ を 作成 する だ け な ら , この 2 つの フォ ー マ ッ ト を 利用 する 必要 性 は な いで し ょ う . 






































還 ここ ご ヒヒ.X 
= 用 コマ ンド は , 半角 英 小文字 を 含む ファ イル 名 を すべ て 半角 英 大 文字 に 変換 する た め の ツ ー 








- 選 コマ ンド は, Human68k 上 で の み フ ァイル 操作 を 行っ て いる 場合 に は , あま り 使用 する 機 


= ありま せん が , X68000 で 作成 し た ファ イル を MS-DOS 上 で アク セス する 場合 に は 非常 に 有 
き (P.46 参照 MS-DOS は , 半角 英文 字 の うち 小文字 を 含む ファ イル 名 や ディ レク トリ 名 
守 二 し て いな い の で , Human68k の ファ イル や ディ レク トリ を アク セス する こと が で きま せん . 


上 


| 
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軒 MDVE.X 
ディ レク トリ か ら , 別 の ディ レク トリ ヘ へ フ ァイル を 移動 し ます . た だ し ,。 ディ レク トリ 単位 で 
ほ 移 動 で き な い の で 注意 し て くだ さい . また , ドラ イブ 間 で ファ イル を 移動 する こと も で きま せ 


較 「 ム 日 X 

タイ ム ス タ ン プ を 参照 し て , ファ イル の 更新 を 行い ます . 指定 され た ファ イル が , パス に 指定 
きれ た ディ レク トリ 内 に な いか , た と え あ っ て も 指定 され た ファ イル の ほう が 新 し け れ ば , 新 し 
いい ほう の フ ァイル を 指定 され た ディ レク トリ に コピ ー し ます 。 た だ し ,/N オプ ショ ン が 指定 き 
れ て いた 場合 に は , コピ ー 先 に な い フ ァイル は コピ ー し ませ ん . 

この コマ ンド を 使え ば バー ジョ ン ア ッ プ し た ファ イル を シス テム に 組み 込む と き に ,。 間違っ 
て 古い バー ジョ ン の コマ ンド を 組み 込ん で し まう よう な ミス を 未然 に 防ぐ こと が で きま す . 


還 1DUCH.X 

ファ イル や サブ ディ レク トリ , ボリ ュー ム 名 の タイ ム ス タ ン プ を 変更 し ます . た だ し 。 読出 し 
専用 属性 や シス テム 属性 の つい て いる も の は 変更 で きま せん . また , 作成 日 付け , 作成 時 刻 の ど 
ちら か 一 方 の み を 変更 する こと も で き な い の で 注意 し て くだ さい . 











較 | ロビ E.X 
ディ スク に 格納 され て いる , ファ イル や ディ レク トリ の 階層 構造 を 視覚 的 に 表示 し ます (画面 


陸生 














2 は 
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Cx 
CTREE /f 較 C ド ライ ブ の ルー トディ レク トリ より , 
ファ イル 名 も 含め て ディ レク トリ 構造 を 表示 する 


LU WU Wu 5) 0U 還 還 いい ( BUCU WIND MOUU0 BE | 


画面 1.1 THEE コマ ンド の 実行 例 


時 WHEHE.X 








階層 構造 が 複雑 に な る と , 必要 と し て いる ファ イル が どの ディ レク トリ の 下 に ある の か わか ら 
な く な る こと が あり ます . その よう な と き 。 こ の コマ ンド を 使う と , 探し て いる ファ イル の ある 
ディ レク トリ を 知る こと が で きま す . また , すべ て の ドラ イブ に つい て 探す こと も で きま す . 





1 ..5 ライ ブラ リ こ 外部 関数 


いま まで BASIC を 中 心 と し た プロ グラ ム し か 作っ て こと な か っ だ た 方 に と っ て は , ライ ブラ リ と 
いっ て も ピン と こない か も し れ ま せん . ライ ブラ リ と は , 後々 使え を る よう な 便利 な サブ ルー チン 
の 集まり で , し か も , プロ グラ ム 中 か ら 自 由 に 呼び 出す こと が で きる よう に まとめ て 管理 され て 











いる も の で す . 


プロ グラ ム 中 で 頻繁 に 使わ れる 関数 は ,。 ライ ブラ リ に し て 保存 し て お く と, 毎回 同じ よう な 関 
数 を 書か な く て も , 名 前 で 呼び 出す だ け で 使う こと が で きま す . それ ば か り で な く , それ まで 数 





十 行 必要 だ っ た 部 分 が 縮まり , プロ グラ ム 自 身 も 見 や すく な り ま す . 
C Compiler PRO-68k に は , C 言語 や アセ ン ブ ラ の プロ グラ ム か ら 利 
ブラ リ と , X-BASIC か ら 利用 で きる 外部 関数 と が 付属 し て いま す の で , 














る 関数 は , ほとん ど そ ろ っ て いる と いえ ます . も ちろ ん , プロ グラ ム 開 発 途 」 





数 も 保存 し て お け ば , より 効率 的 に 開発 を すす め る こと が で きま す . 





一 般 的 に 必要 だ と 

















た だ し , 注意 が 必要 な の は , C 言語 や アセ ンプ ブラ か ら は 外部 関数 を 利 














X-BASIC か ら は ライ ブラ リ を 利用 で き な い と いう こと で す . 











用 で きる いく つか の ライ 
思わ れ 
F 上 で で き あ が っ た 関 





日 で き な い と いう こと と 。 


1.2 ソフ トウ ェ ア に 見 る 特徴 


田 ライ ブラ リ 関 数 
C コ ン パ イラ に は , 次 の よう な ライ ブラ リ が 付属 し て お り , ファ イル 入出 力 や メモ リ 操 作 , 数 値 
演算 , 文字 列 操作 な どの 関数 が 提供 され て いま す . 




















・ 標 準 関数 ライ ブラ リ … 。 ファ イル 入出 力 や メモ リ 操 作 , 数 値 演算 , 文字 列 操作 な ど 
の 関数 

・DOS コー ル ラ イブ ラリ … DOS コー ル を 行う た め の 関 数 

・IOCS コー ル ラ イブ ラリ  … IOCS コー ル を 行う た め の 関 数 

・BASIC 関数 ライ ブラ リ  … BASTOC コン バー タ で X-BASIC か ら C 言 語 へ 変換 き 


れ た プロ グラ ム の た め の 関 数 


画 外部 関数 

外部 関数 は , X-BASIC で 周辺 機器 を 利用 する と き に 使用 する X-BASIC 専用 の 関数 で す . 外部 
関数 は , X-BASIC 起動 時 に BASIC 本 体 に 組み 込ん で 使用 する こと に な り ま す . 本 体 に は グラ 
フィ ッ ク (GRAPH.FNC),、 ス プラ イト (SPRITE.FNC), FM 音源 (MUSIC.FNC), AD-PCM 
(AUDIO.FNC), マウ ス (MOUSE.FNC), ジョ イス ティ ッ ク (STICK.FNC), カ ラー イメ ー ジ ・ ユ 
ニッ ト (MAGE.FNC) を 制御 する 外部 関数 が 付属 し て いま す . 











1.. 巳 ソフ トウ ェ ア 資 産 の 蓄積 

C Compiler PRO-68k に は , 非常 に 多く の 関数 が ライ ブラ リ や 外部 関数 と し て 付属 し て いま 
す . し か し , 標準 関数 に 用 意 さ きれ て いな い 関 数 を 作り た いと いう 要求 生ま れ て くる こと で し ょ 
う . その よう な 場合 , ユー ザー 独自 の 関数 を 収め た ラ イブ ラリ や 外部 関数 を 作成 する こと が で き 
ます 。 

し か し , せっ か く ラ イブ ラリ 化し て も その 場 限 り で 二度と 使わ な か いよ うな も の を 作っ て も 意味 
は あり ませ ん . 後々 の プロ グラ ミン グ で も 役立つ よう な 汎用 的 な 関数 を 作り , どの よう な 言語 で 
プロ グラ ム を 書い て いて も , すべ て の 言語 で 利用 で きる よう に ライ ブラ リ 化 し て いく こと が ,。 ソ 
フト ウェ ア 資 産 を 蓄積 し て いく こと に な る の で す . 

それ で は , ライ ブラ リ や 外部 関数 の 拡張 は どの よう に 行う の か と いう こと に つい て か ん た ん に 
説明 し て お きま し ょ う . 具体 的 な 方 法 に つい て は , 5 章 で 紹介 する こと に し ます . 











田 ライ ブラ リ 関 数 の 拡張 

ライ ブラ リ に 収め る 関数 は ,C 言語 ある い は アセ ン ブ ラ で 記述 する こと が で きま す . ア セン 
で 作る 場合 , 当然 の こと な が ら 68000CPU の アセ ン ブ ラ や C 言語 の 内 部 仕様 に 詳し く な いと で 
な いも の で す が , 高速 な 関数 を 作る に は 最も よい 方 法 で し ょ う . 


人 











| 章 X68000 の プロ フィ ー ル 


た と えば , 自作 の 拡張 ボー ド を 増設 し た 場合 , その ボー ド を 動か す た め の IOCS に 相当 する サブ 
ルー チン を 作っ て お いて か ら , それ を 利用 する た め の 関 数 を 作る こと に な り ま す . と くに , IOCS 
に 相当 する 部 分 は た いて い 高 速 性 が 求め られ ます . この よう な 場合 は アセ ンプ ブラ が 最適 で し ょ う . 


C 言語 や アセ ン ブ ラ を 使っ て 書い た プロ グラ ム の ライ ブラ リ へ の 登録 。 削除 な どの 管理 を 行う 
と き に は , アー カイ バ と いう ツー ル を 使用 し ます . 









XAssembler 
と . ら 






X-BASIC 
や .BAS 





- 叉 し レッ 






ライ ジラ アリ 
て .A 
(一 0 の 集合 体 ) 





1.1 選 ソフ トウ ェ ア 資 産 の 蓄積 
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還 革 関数 の 拡張 




















1.2 ソフ トウ ェ ア に 見 る 特徴 


中 如 関 数 は , C 言語 や アセ ン ブ ラ を 使っ て 作成 する こと が で きま す が , 決め られ た 仕様 に 従っ て 
E ら な けれ ば な り ま せん . アセ ンプ ブラ で 作成 する 場合 に は , 細か な プロ グラ ミン グ を する こと が 























軌 仁 様 に 合っ た も の を 直接 作る こと は で きま せん . 


きま す の で , 仕様 に 合っ た も の を 作る こと は 可能 で す が , C 言語 


更 用 する 場合 に は , 外部 関数 





書 で は , C 言語 で 書い た プロ グラ ム を 人 外部 関数 に 変換 する ツー ル を 用 意 し まし た (p.261) か 


ら 、 外部 関数 の 内 部 仕様 に つい て 知ら な く て も 簡単 に 外部 関数 を 作れ る よう に な っ て いま す . 

















この ツー ル を 応用 すれ ば , X-BASIC と C 言語 の いずれ の 言語 














で 関 


数 を 記述 し て も , ラ イブ ラリ 


関数 と 外部 関数 の 両方 に 登録 で きま す の で , 理想 的 な 環境 を 構築 する を こ と が で きま す ( 図 1.12). 


X590 り 0 
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オペ レー ティ ング シス テム 
HumanB8BK 


-。 XBBOOD と いう と , AD-POM, FM 音源 と いっ た ハー ド 
ウェア や , 美しい グラ フィ ックス を 使っ た ゲー ム や デザ イン ツー ル 
- な どの ソフ トド ウェア が 注目 され か が ち で す . し か し , これ ら の ハー ド 
ウェ ア や ソフ トウ ェ ア を ささ えて いる ディ スク ・ オ ペレ ー テ ィング 
、。 シ ステ ム ( ロ 〇 8) の 存在 を 忘れ て は な り ま せん . 

ご 。。 本 埋 で は . HumanBBk の 特徴 と 内 部 構造 そし て XB 昌 ロロ D 
.。 の 起動 か ら 終 了 ま で の 過程 な ご. これ か ら HumanBBk 上 で プロ 
グラ ム を 書 こ うと する ユー ザー に と っ て 必要 な こと か ら を 中 心 に 解 
sr 説 を すす め て いき ます . 











己 .] HumanB8k の 概要 





刀 


旨 mman68k は ,、 MS-DOS (ver.2.11) を モデ ル と し て 作ら れ て いる シン グル ユー ザー・ シ ング ル 
ョ テウ の DOS で す . その 操作 や 基本 構成 は , MS-DOS と それ ほど 異な り ま せん が 。 X68000 独 
= を 活か す た め の 1] 





ティ 

















[ 夫 も こら され て いま す . それ で は , Human68k が どの よう な も の な の か 
する た め に , その 全体 像 か ら な が め て みる こと に し ます . 


己 .1.1 HumanB8k の 構成 


是 uman68k と いう 呼び 名 は シス テム 全体 を 指す 名 称 で , 図 2.1 に 示す よう に 4 つの 部 分 か ら な 
SG いま す 、 


アプ リ ケ テ ジョ ジジ 








内 蔵 の 
デバ イス 
外 付け の Lc 
デバ イス 
ドラ イ バ IOCS 
ROM 

















図 .1 


HumanB8gk の 構成 


ケー ジョ ジジ ダ 宮 用 多 欠 の 





シェ ル (COMMAND.X) は 、 ユー ザー が 入力 し た コマ ンド を 解釈 し 。 実行 に 移す た 


の アデ プリ 


する も の で す 


で , MS-DOS の COMMAND.COM に 相当 
DOS は , Human68k の 心臓 部 で あり , X68000 全体 の 管 


























時 を 行い ま す . 通常 








> で 5 が テ シ ョ 
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2 章 オペ レー ティ ング シス テム Human68k 


ン は DOS に 対し て 必要 な 要求 を 行う こと で , Human68k 上 で 動作 する こと が 許さ れ ま す . これ を 
無視 し た プロ グラ ム を 作成 する と , 他 の プロ グラ ム と 協調 し て 動作 きせ たり する 場合 に , 障害 が 
発生 する こと が あり ます . また , DOS 内 で は , ハー ドウ ェ ア の 細か な 制御 まで は 行わ ず , デバ イ 
ス ド ラ イ バ と 基本 入出 力 シ ステ ム に 任せ て いま す . 

Human68k で は , いく つか の 基本 的 な 入出 力 装 置 を す サポー ト す る デバ イス ドラ イ バ が DOS と 
同一 の ファ イル (HUMAN.SYS) に 収め られ て お り , 外側 か ら は その 切 分 け を 見 る こと は で きま 
せん . その 他 の デバ イス ドラ イ バ は , HUMAN.SYS と は 別 の ファ イル と し て ディ スク に 格納 され 
て お り , シス テム 起動 時 に 組み 込ま れ ま す . 

基本 入出 カシ ステ ム (IOCS) は , ハー ドウ ェ ア を 直接 アク セス し て いる 最 下 層 の サブ ルー チン 群 
で あり , 本 体内 蔵 の ROM に 収め られ て いま す . ほとん どの 場合 , デバ イス ドラ イ バ も IOCS を 通 
じ て 入 出力 装置 を コン トロ ー ル し て いま す . 

さて , IOCS が ROM に な っ て いる と いう こと は , Human68k 以外 の DOS を 作成 し た 場合 に も 
利用 する こと が で きる と いう こと な の で , 厳密 な 意味 に お いて は , Human68k の 一 部 と は いえ な 
いか も し れ ま せん . し か し , X68000 の ハー ドウ ェ ア す べ て を Human68k が サポ ー ト し て いる わ 
け で は な く , IOCS を 直接 呼び 出さ な けれ ば 使用 で き な い 周辺 装置 も ある の で , この 章 で は IOCS 
に つい て も 解説 し て いま す . 

と この よう に , ユー ザー イン ター フェ イス と ハー ドウ ェ ア に 密着 し た 部 分 を 別 の 層 に 分 ける こと 
で , DOS に 手 を 加え る こと な く , ユー ザー イン ター フェ イス の 変更 , ハー ドウ ェ ア の 仕様 の 変更 
を 行う こと が で きま す . 逆 に いう な ら ば , アプ リケーション は ハー ドウ ェ ア に 依存 し な く な る の 
で , ハー ドウ ェ ア の モデ ル チ ェ ンジ に 合わ せ て ソフ トウ ェ ア を 書き 換え る と いう よう な 作業 か ら 
解放 き ほれ ます . で すか ら , HUMAN.SYS を 介 き ず に ハー ドウ ェ ア を 制御 し た りす る の は 避け , デ 
バイ ス ド ラ イ バ を 通じ て 行っ だ ほう が よい で し ょ う 。 

た と えば , ハ ー ド ウェ ア の 仕様 が 変更 され た 場合 (た と えば , CPU が 68000 か ら 68020 と いう 上 
位 互 換 の 32 ビッ ト CPU に な る な ど ), ハー ドウ ェ ア や 1IOCS の 仕様 に 依存 し た プロ グラ ム は 正 
常に 動作 し な く な る 危険 性 が あり ます . 
































忌 .1. Humank の 特徴 


Human68k の お お よそ の 構造 は 。 お わか り い た だ けた で し ょ う . それ で は , Human68k の 機能 
を も う 少 し 詳細 に 見 て み ま し ょ う . 


一 コマ ンド シェ ル (COMMAND.X) 

COMMAND.X は , MS-DOS の COMMAND.COM と ほぼ 同等 の 機能 を も ち , さら に いく つか 
の 機能 強化 が 行わ れ て いま す . た と えば , 1 行 に 複数 の コマ ンド を 連続 し て 書き , 連続 実行 させ る 
マル チ 処 理 機能 , 実行 し た コマ ンド の 履歴 を 記憶 し て お く ヒ スト リ 機 能 な ど が それ で す . これ ら 


42 


2.| Human68k の 概要 





の 機能 を うま く < 組み 合わ せ て 使う こと で 。 コ マン ド 入 力 の 手間 を 大 幅 に 軽減 きせ る こと が で きま 
す . 


マル チ 処 理 
マル チ 処 理 と は, 1 行 の コマ ンド ライ ン に 複数 の コマ ンド を 連続 し て 記述 し , それ ら を 連続 実行 
させ る 機能 で す 。 マル チ 処 理 を 行う た め に は , コマ ンド 行 で 連続 実行 させ た い コ マン ド を ゞ ヾ | 1? 


で 区 切っ て 記述 し ます . 
た と えば , 
SCREEN || DIR | | PROCESS 


と 入力 する と, 画面 を 初期 化し た あと , ディ レク トリ 表示 , プロ セス の 状態 の 表示 が 行わ れ ま す . 
この 機能 が 本 領 を 発揮 する の は , 次 の よう な 場合 で し ょ う . 


AS ノ 1 AA:PNCLUDE TEST || . 引 TESTY 1] 令 ノ ( TEST 


この 例 で は ,。 “TEST.S 々 と ぃ いう アセ ン ブ ラ の ソー ス フ ァ イル が 。 ア セン ブラ , リン カ , コン バー 
タ に か けら れ , 途中 で エラ ー が 起き な けれ ば TEST.R? と いう 実行 可能 ファ イル を 作る こと が で 
きま す 。 


ビス ドリ 

ヒス トリ 機能 と は , それ まで 入力 し た コマ ンド ライ ン を 記録 し て お き , 必要 な と き に 呼び 出し 
て 再 実行 する も の で す . マル チ 処 理 機能 を 使っ た 場合 な ど , コマ ンド ライ ン が 長く な る と き に は , 
この 機能 を 利用 し て キー 入力 を 省力 化す る こと が で きま す . 

コマ ンド ライ ン を 記録 し て お く 領 域 。 コマ ンド シェ ル の 起動 時 に オプ ショ ン で 決め る こと が 
で きま す . た と えば , 次 の よう に 起動 し た 場合 , ヒ スト リ 領 域 は 256X8(= ニ 2K) バ イト が 確保 きれ 
ます , また , 指定 の な い 場 合 は , 512 バイ ト が 確保 さき れ ま す . 


COMMAND ンプ H:8 


図 2.2 に は , ヒス トリ 機能 の し くみ を 示し ます 。 基 本 的 に は , バ 十 ” や ドー? コマ ンド に より ヒ 
スト リ 中 の コマ ンド ライ ン を 検索 し 。 テン プレ ー ト に 格納 し ます . また , HIS コマ ンド で ヒス ト 
リ 領 域 に 格納 され て いる コマ ンド ライ ン を 表示 し ます . 

普通 は ROLL UP/ROLL DOWN キー, UNDO キー だ け で , それ まで 入力 し た コマ ンド ライ 
ン の 再編 集 と 実行 を する こと が で きま す 。 プ ロン プ ト が 表示 され て いる 状態 で ROLL DOWN 
キー を 押す と , 現在 注目 し て いる ヒス トリ 行 よ り 1 つ 前 の 行 の 内 容 が 画面 に 表示 さき れる と と も に , 
テン プレ ー ト に 格納 され , UNDO キー を 押す と , その コマ ンド ライ ン が 実行 され ます . また , 
ROLL UP キー は ヒス トリ 行列 中 の 注目 行 を 1 つの 進め ます . 
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ヒス トリ 行列 の 領域 


ユヒ スト リ の 機能 ② 
Ii テン プレ ー ト へ 転送 する 
「 ヒス トリ 行 を 切り 換え る 









ヒス トリ の 機能 
コマ ンド ライ ン を ヒス トリ 
領域 へ 格納 する 


これ ま て 入力 され た 
コマ ンド ライ シン 


! デジ プ ビ レー ド 





現在 編集 中 の 
コマ ンド ライ ン 








図ら . ど ヒス トリ 機能 


リダイレクト と パイ プ 

シェ ル の 機能 と し て 忘れ て は な ら な い の が , リ ダイ レグ ト ジ パ イプ で じ ち う 、0 ダイ ピク ギド ゆう 
コマ ンド の デー タ の 入力 元 や 処理 結果 の 出力 先 を 変更 する も の で す . た と えば TYPE コマ ンド で 
は 。 通常 テキ スト ファ イル の 内 容 を 画面 に 出力 し ます が , と の 出力 先 を 画面 か の ら プ リン タ へ 間 


する こと が で きま す ( 図 2.3). また , 出力 先 を ファ イル に する と , 出力 結果 を ディ スク に 記録 する 












































と と も で きま す . 


Em 


// 
① 







ca スク リー ン 
| ? | 
0 
ファ イル プ ザ サンタ 





| 
! 





ファ イル 


図ら .3 リダイレクト の 考え 方 


ェ ビ スー 


パイ プ は 。 あ る コマ ンド か ら 出 力 さ れ た デー タ を 次 に 実行 する コマ ンド の 入力 デー タ と する も 
の で す ( 図 2.4). 
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スク リー ン 
TYPE コ マン ド の 出力 を その まま SORT コ マン ド に 渡す 


.4 パイ プ の 考え 方 


較 ビジ ュ ア ル シ ェ ル (V.X) 

ビジ ュ ア ル シ ェ ル (VS.X) の 目指 す 操 作 環 境 は 。 コマ ンド シェ ル の それ と は 対極 に あり ます . コ 
マン ド シ ェ ル で は , ユー ザー が 何 か を 操作 し た いと き , その 操作 は すべ て キー ボー ド か ら 文 字 列 
(コマ ンド ) を 入力 する こと で 行わ れ ま す . 

と れ に 対し て ビジュ アル シェ ル は , ファ イル を すべ て アイ コン ” と いう シン ボル マー ク で 表 
し , ひと めで その ファ イル が 何で ある か を 見 分 けら れる よう に な っ て いま す . そし て , キー ボー 
ド の 代わ り に マウ ス を 使い 。 これ ら の アイ コン を クリ ッ ク す る こと で , キー ボー ド か ら の 文字 列 
入力 に 比べ 。 か ん た ん に ファ イル の 操作 が で きる よう に な っ て いま す . 

また , コマ ンド シェ ル に は な い , 画面 2.1 の よう な いく つか の アプ リケーション が 組み 込ま れ 
KGVWS ま す -。 









































画面 ら .1 VS.X に 組み 込ま れ て いる アプ リケーション 
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この ビジ ュ ア ル シ ェ ル は , MS-DOS に と っ て の MS-WINDOWS と の 関係 と は まっ た く 異 な 
り ま す . ビジ ュ ア ル シ ェ ル は , コマ ンド の 解釈 , 実行 を 行う た め の 単 な る ユー ザー イン ター フェ 
イス の 1 つ に し か すぎ ませ ん ,。 つま り 。 ウィン ドウ 環境 で は な いと いう こと で す . 

オプ ショ ン 指 定 の 必要 が ほとん ど な い 普通 の アプ リケーション を 利用 する 際 に は ビジ ュ ア ル 
シェ ル の ほう が 適し て いま す が , プロ グラ ム 開 発 に は コマ ンド シェ ル を 使用 し た ほう が よい と い 
え ダ で も > 
































較 ファ イル シス テム 

Human68k で も , MS-DOS と ほぼ 同じ ファ イル シス テム を 採用 し て いま す の で , Human68k 
で 作成 され た フロ ッ ピ ー デ ィ ス ク を , MS-DOS で 読み 書き する こと が で きま す . し か し 。 フ ァ イ 
ル 名 の つけ か た な ど で 。 多少 の 相違 点 が あり ます の で , 注意 も 必要 で す . 








ファ イル 名 規約 

MS-DOS で は , ファ イル 名 中 の 半角 英文 字 は 大 文字 で 扱っ て お り , コマ ンド ライ ン か ら 小 文字 
の ファ イル 名 を 指定 し て も , 内 部 で は 大 文字 に 変換 し て 処理 し ます . し か し , Human68k は , そ 
の よう な 処理 を 行い ませ ん か ら , 英 小文字 を 含む ファ イル 名 を 作成 する こと が で きま す . に も か 
か わら ず , ファ イル 名 中 の 大 文字 と 小文字 は 区 別 き れ な い の で , “FOO.S? と ヾ foo.s? は 。 ま っ た 
く 同 じ フ ァイル を 指し て いる こと に な り ま す . 

Human68k で 使用 きれ る フロ ッ ピ ー デ ィ ス ク は , MS-DOS で も 読み 書き する こと が で きま す 
が , 半角 英 小文字 の 名 前 が つけ られ た ファ イル を MS-DOS で 扱う こと は で きま せん か ら 。DIR コ 
マン ド で ファ イル の 一 覧 を 参照 する こと は で き て も , ファ イル を 読み 込む せこ と は で きま せん . 

また , ファ イル 名 の 長き も 異な り ま す . MS-DOS で は 半角 文字 で ノー ド 名 8 文字 と 拡張 子 3 文 
字 で 構成 され て いま し た が , Human68k で は ノー ド 名 18 文字 , 拡張 子 3 文字 まで 使う こと が で き 
ます . し か し , ファ イル 名 の 認識 は ノー ド 名 8 文字 まで で すか ら , 事実 上 MS-DOS と 同じ で ある 





フ ァイル の 種類 
X-BASIC 用 に 記述 され た プロ グラ ム の ソー ス フ ァ イル 
C 言語 で 記述 され た ソー ス フ ァ イル 
68000CPU の アセ ンプ ブリ 言語 で 記述 され た ソー ス フ ァ イル 
アー カイ プ フ ァ イ ル 


























オプ ジェ クト ファ イル 

X 形式 の 実行 可能 ファ イル 

R 形式 の 実行 可能 ファ イル 

Z 形式 の 実行 可能 ファ イル 

パ バッヂ フ ァイル 

OS 本 体 や デバ イス ドラ イ バ 等 の シス テム ファ イル 























表 選 .1 HumanB8k で 予約 され て いる ファ イル 拡張 子 
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2.| Human68k の 概要 


と いえ ます . 

さき さらに, シス テム で 予約 され て いる ファ イル 拡張 子 も , MS-DOS の も の と は 異な り ま す . 表 2. 
1 に Human68k で 予約 され て いる 拡張 子 の 種類 と 意味 を まとめ て お きま す . 

この よう な 違い を 考え る と , MS-DOS と の 間 で の ファ イル の 互換 性 を 保ち た い の で あれ ば , 
ファ イル 名 を すべ て 大 文字 で , か つつ 文字 数 を 8 文字 以下 に する よう 意識 的 に 管理 し な けれ ば な り 
ませ ん . 





階層 構造 の ファ イル 管理 

ディ スク な どの 人 外部 記憶 装置 の 容量 は , 一 昔 前 と は 比べ も の に な ら な い ほ ど 増 加 し まし た . 
X68000 で も , 約 1M バイ ト の フロ ッ ピ ー デ ィ ス ク ・ ド ライ ブ を 2 台 内 蔵 し , 最高 40M バイ ト の 
ハー ド デ ィ スク を 15 台 ま で 接続 する こと が で きま す . こう な る と 当然 1 つの 記憶 媒体 に は いる 
ファ イル の 数 も 増え を て きま す の で , その まま で は ファ イル の 数 が 多 す ぎ て , か えっ て 不便 に な っ 
C し まい ます: 

そこ で , Human68k で も 階層 ディ レク トリ 構造 と いう 概念 を 取り 入れ て いま す . これ は ディ レ 
クト リ の な か に , さら に ディ レク トリ を 作る こと で ファ イル の 内 容 や 用 途 に 応じ て , 分 類 , 整理 
する こと が で きる と いう も の で す . 








田 デバ イス と ファ イル の 同格 化 

征 uman68k で は ,) ディ スク 上 の デ ロ グ ラム や デー タ は も ちろ ん , ディ スプ レイ や デリ ンダ な ど 
の 周辺 装置 も 含め て , すべ て を ファイル” と し て 扱い ます . で すか ら , コマ ンド の 実行 結果 を 
画面 に 出し た り デ ィ ス ク に 格納 し た りす る と き に , デバ イス と 通常 の ファ イル と の 違い を ユー 
ザー プロ グラ ム で 意識 する 必要 は それ ほど な く , コマ ンド ライ ン で 容易 に 入出 力 の 相手 先 を 変更 
する こと が で きま す . 

表 2.2 に は , Human68k で 用 意 き れ て いる , デバ イス ファ イル を 示し て お きま す . 


ファ イル 名 各 デ バイ ス フ ァ イル の 役割 


入出 力 デ ー タ が 必要 な い 場 合 に 使用 する 

| キー ボー ド か ら の 入力 , 画面 へ の 出力 を 行う と き に 使用 する 
補助 入出 力 (RS-232C) を 通じ て 入出 力 を 行う と き に 使用 する 
リア ル タ イ ムク ロッ ク の 制御 等 を 行う)、 ユー ザー か ら 利用 で き な い 
プリ ンタ へ の 出力 に 使用 する (漢字 コー ド に 対応 し て いる ) 

プリ ンタ へ の 出力 に 使用 する (ビッ トイ メー ジ 出 力 等 に 使用 ) 
ADPCM デバ イス と 入出 力 を 行う と き に 使用 する 

FM 音源 デバ イス へ 出力 する と き に 使用 する 


注 : “PCM” は PCMDRV.SYS, “OPM” は OPMDRV.X と いう ファ イル (デバ イス ドラ イ バ ) を , シス テ 
ム 起 動 時 に 組み 込ま な けれ ば 使用 で き な い . 





























表 己 己 デバ イス ファ イル 
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2 章 オペ レー ティ ング シス テム Human68k 


選 . つ HumanB8kK の コン フィ ギュ レー ショ ン 





Human68k の シス テム ディ スク は , 5 インチ 2HD タイ プ の の フロッピー ディスク 1 枚 で 構成 さ 
れ て いま す . この ディ スク に は Human68k 本 体 の ほか に , いく つか の 外部 コマ ンド や, 漢字 変換 
の た め の フ ロン ト エ ンド ・ プ ロ セ ッ サ も 収め られ て いま す . 

Human68k の 起動 は 。 シス テム ディ スク を ディ スク ドラ イブ に 挿入 し て , リセ ッ ト ボ タン を 押 
す だ け で す が , MS-DOS と 同様 に 。 CONFIG.SYS ファ イル で は いく つか 設定 を 行う こと が で き 
ま 朗 。 

また , アプ リケーション や コマ ンド は , プロ グラ ム の 実行 環境 を 決定 する 環境 変数 と 呼ば れる 
パラ メー タ を 設定 する 必要 が あり ます . 

この よう な , さま ざま な 設定 を コン フィ ギュ レー ショ ン と 呼ん で いま す が , Human68k を 使い 
始め る 前 に は ,。 か な ら ず し て お か な けれ ば な ら な いも の で す . この 設定 の いか ん に よっ て 。 プロ 
グラ ム の 開発 効率 は 大 きく 影響 を 受け ます . 

















己 己 .1 CONFIG.SY8 の 設定 

Human68k は 起動 時 に , シス テム を 読み 込ん だ ディ スク の ルー トディ レク トリ に ゞ CONFIG. 
SYS” と いう 名 前 の ファ イル が ある か どう か を 検索 し ます . も し , この ファ イル が 見 つか れ ば 。, 
そこ に 書き 込ま れ て いる 内 容 に 従っ て , シス テム が 動作 する 環境 を 設定 し ます .。 見 つか ら な い 場 
合 は , HUMAN.SYS が 最初 か ら も っ て いる 値 に 従っ て 環境 を 設定 し ます . 

CONFIG.SYS ファ イル で は , 表 2.3 の 8 つの 機能 を 設定 する こと が で き ます . 

MS-DOS ver.2.11 と 比べ 。 Human68k で あら た に 追加 され た も の に ゞ ヾ BELL が あり ま 狗 尊 生 
れ は , BASIC な ど で エ ラー が 発生 し た と き に 鳴る ビー プ 音 を 設定 する も の で す . ビー プ 音 の デー 
タ と し て 使え る の は , 通常 は AD-PCM の 15.6KHz で サン プリ ング さ れ た デー タ で す . BELL の 


BELL ビー プ 音 に 使用 する PCM デー タフ ァイル の 指定 
BREAK CTRL+C の チェ ッ ク 機 能 の 設定 
BUFFERS ディ スク バッ ファ 数 の 設定 











DEVICE 起動 時 に 組み 込む デバ イス ドラ イ バ の 指定 組み 込ま な い 
FILES 同時 に オー プン で きる 最大 の ファ イル 数 の 設定 15 
SHELL 起動 後 の シ ェ ル の 指定 TITLE.SYS に よる 
VERIFY ベリ ファ イ 機 能 の 設定 off 




















表 己 3 CONFIG.SY8 で 設定 で きる 項目 
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2.2 Human68k の コン フィ ギュ レー ショ ン 


雲 定 に は , これ を 収め た ファ イル の 名 前 を 指定 し ます . BELL を 指定 し な か っ た り , ファ イル が 
忘 か っ た り し た 場合 に は , ビー プ 音 は 鳴り ませ ん . 





己 .. 環境 変数 の 設定 

環境 変数 (環境 文字 列 ) は , シス テム が 保持 し て くれ る 変数 で , ユー ザー プロ グラ ム か ら DOS 
コー ル を 利用 し て 参照 し た り 設定 する こと が で きま す . コマ ンド シェ ル か ら は SET コマ ンド で 
行い ます . 

環境 変数 の 目的 は 。 プロ グラ ム が 実行 され る 環境 を 設定 する こと で す . た と えば ぱ ば, 


SET path ニ A : \BIN : A :\CC iA:\SYS:A:\ 
と いう コマ ンド ライ ン を 実行 する と , 
path = A : \BIN : A : \CC\A :\SYS :A:\ 


と いう よう に , path” と いう 環境 変数 が 設定 され ます . プロ グラ ム 中 か ら は path” と いう 環境 
変数 を 参照 し て , 外部 コマ ンド を 検索 する サー チ パ ス を 得る こと が で きま す . この よう に , プロ 
グラ ム の 実行 の 際 に 必要 と な る 情報 を 環境 変数 と いう 形 で プロ グラ ム に 伝え る こと に より , プロ 
グラ ミン グ 環 境 を 整備 する こと が で きま す . 

環境 に つい て 注意 すべ きこ と は , いく ら 環 境 変数 を 設定 し て も , 実行 され る プロ グラ ム が その 
環境 変数 を 参照 し な けれ ば 役に立た な いと いう こと で す . つま り 環 境 変 数 の 参照 は プログ ラム 
に 任 さ れ て いる わけ で す . た だ し , さき ほど 例 に あげ た path は , DOS が 外部 コマ ンド の 検索 の た 
め に 参照 し て いま す . 

な お 。 環境 変数 に 関し て 注意 す ベ きこ と に は ,。 次 の 2 つが あげ られ ます . 


・ 環 境 変数 は 半角 英文 字 の 大 文字 , 小文字 を 区 別 する 
た と えば , “path” と PATHP は 違う 環境 変数 で ある . な お , Human68k で は コマ ンド 
シェ ル か ら 半 角 英 小文字 を 含む 環境 変数 を 設定 する こと が で きる 

・ 親 プロ セス か ら 子 プロ セス に 渡さ れる 環境 変数 は , 親 の 環境 変数 その も の で ある 
つま り , 子 プ ロ セ ス 側 で 環境 変数 を 退避 せ ず に 変更 する と , 親 プ ロ セ ス の 環境 変数 も 変更 
き 稚 て ( し まあ 


だ だ し , 後者 に つい て は , コマ ンド シェ ル か ら あ ら た に コマ ンド シェ ル を 起動 し た 場合 。 子 プ 
ロ セ ス 側 の コマ ンド シェル が 自分 自身 で あら た な 領域 を 確保 し , 親 の 環境 変数 を コピ ー し て いま 
す の で , 見 か け 上 は 別 の 環境 を も っ て いる よう に 見 えま す . 

Human68k 上 で プロ グラ ム を 作成 する た め に 必要 な 環境 変数 に は , 次 の よう な も の が あり ま 
E 応 
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2 章 オペ レー ティ ング シス テム Human68k 


・ 階 層 デ ィ レ クト リ 内 の 外部 コマ ンド の 検索 (path) 

・ テ ン ポ ラリ ファ イル を 作成 する 場所 の 指定 (temp) 

・ ラ イブ ラリ ファ イル の 格納 され て いる ディ レク トリ の 指定 (Iib) 

・ イ ンク ルー ド フ ァイル の 格納 され て いる ディ レク トリ の 指定 (include) 





コマ ンド シェ ル は , 外部 コマ ンド を 実行 する と き ,。 カ レン トディ レク トリ に 目的 の コマ ンド が 
ある か どう か を 調べ , な い 場 合 に は path に 設定 され て いる ディ レク トリ を 順に 検索 し て , 目的 の 
コマ ンド ファ イル が 見 つか っ た 時 点 で 読み 込ん で 実行 し ます . 

また , COMMANDX や ASJX な どい くつ か の コマ ンド は,。 ディスク 上 に 作業 用 と し て 一 時 的 
な ファ イル (テン ポラ リフ ァイル ) を 作り ます . temp は この テン ポラ リフ ァイル を 作成 する ディ 
レク トリ を 指定 する 環境 変数 で す . ここ に , A : \ や C : 壮 TMP と いっ た パス を 設定 し て お け ば , 
COMMANDX や ASX と いっ た コマ ンド は , 環境 変数 temp を 参照 し て テン ポラ リフ ァイル を 
作る ディ レク トリ を 決定 し ます 。 も ちろ ん , ユー ザー の 作っ た プロ グラ ム の な か か ら で も ,。 この 
環境 変数 を 参照 し て テン ポラ リフ ァイル を 作成 する 場所 を 決定 する こと が で きま す .。 テン ポラ リ 
パス が 定義 きれ て いな い 場 合 、 テンポ ラリ ファ イル が 作成 され る 場所 は コマ ンド に よっ て 異な り 
ます . COMMAND.X は カレ ント ドラ イブ の ルー トディ レク トリ に , LK.JX は カレ ント ドラ イブ 
の カレ ント ディ レク トリ に , それ ぞ れ テン ポラ リフ ァイル を 作成 し ます . 

また , テン ポラ リ パ ス で 指定 し た ドラ イブ が 書込み 不可 能 の と き は , テン ポラ リフ ァイル を 作 
成す る コマ ンド の 実行 が 中 止 き され て し まい ます . 

















ご づつ コマ ンド シェ ル 








COMMAND.X は , ユー ザー が 入力 し た コマ ンド を 解釈 し て 実行 する 役割 を 担っ て いま す . 
DOS と は 別 の ファ イル に な っ て いま すか ら , ユー ザー が も っ と 多 機 能 な シェ ル を 作成 し て COM- 
MAND.X と 取り 替え て し まう こと も で きま す . も ちろ ん , DOS に は な ん の 変更 も 加え る 必要 は 
あり ませ ん . も し , この よう な 構造 に な っ て いな けれ ば , コマ ンド 解析 部 分 を 改良 する た め だ け 
に , Human68k の シス テム 全体 を 変更 し な けれ ば な ら な く な っ て し まい ます . 

それ で は , コマ ンド シェ ル が どの よう な 働き を し て いる の か を 見 て み ま し ょ う . 











己 づ .1 コマ ンド の 形式 


COMMAND.X に は , 利用 顔 度 が 高い と 思わ れる コマ ンド が いく つか 内 蔵 さ きれ て いま す . その 
ほか いく つか の コマ ンド は , ディ スク な どの 外部 記憶 装置 に ファ イル と し て 格納 され て いま す . 
前 者 を 内 部 コマ ンド と 呼ぶ の に 対し て , 後者 を 外部 コマ ンド と 呼び ます . また , 外部 コマ ンド に 
は いく つか の 種類 が あり ます . 表 2.4 に , 現在 の 内 部 コマ ンド と 外部 コマ ンド の 一 覧 を 示し ます . 
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23′ ゴマ ジン ドン 刻 


佑 付 属 の シス テム ディ スク に 格納 され て いる 外部 コマ ンド 
ATTRIB ファ イル お よび ディ レク トリ の 属性 の 設定 , 解除 
BACKUP き 2 ハー ド デ ィ スク の 内 容 を フロ ッ ピ ー デ ィ ス ク へ ヘ へ バックアップ 
CHKDSK ディ スク 内 容 の 状態 の 報告 
COMMAND コマ ンド シェ ル の 起動 
COPY2 ハー ド デ ィ スク の 内 容 を フロ ッ ピ ー デ ィ ス ク へ 退避 , また は 復帰 
CUSTOM CONFIG.SYS ファ イル の 作成 
DISKCOPY ディ スク 全体 の コピ ー, 比較 照合 
DRIVE ま 1 ドラ イブ の 種類 や 状態 の 表示 , ドラ イブ 名 の 交換 
DUMP ファ イル 内 容 を 1 バイ ト ご と に 16 進数 で 表示 
FC 2 つの ファ イル の 内 容 の 比較 
FIND ファ イル 中 の 指定 文字 列 の 検索 
FORMAT ディ スク の フォ ー マ ッ ト 
KEY ファ ンク ショ ン キ ー な どの 特殊 キー の 設定 
MORE ファ イル の 内 容 を テキ スト と し て 1 画面 ご と に 表示 
MOVE ま 1 ファ イル の 移動 
PR ファ イル の 内 容 を ペー ジ 単 位 に 整形 し て , 指定 ファ イル に 出力 
RECOVER2 不良 セク タ を 含む ファ イル や ディ スク の 修復 
RESTORE2 BACKUP コマ ンド で バッ クア ッ プ され た ファ イル の 復元 
SORT 行 単位 で の デー タ の 普 替 え 
SPEED RS-232C シリ アル イン ター フェ イス の パラ メー タ の 設定 
SWITCH メモ リス イッ チ の 設定 
SYS Human68k の シス テム ファ イル の 転送 
TREE まき 階層 ディ レク トリ 構造 の ツリ ー 形 式 で の 表示 
USKCGM 外字 の 作成 , 登録 , 削除 
WHERE*1 ファ イル の 検索 


注 1 は , X68000-ACE(CZ-601C-GY, CZ-611C-GY) と C Compiler PRO-68K に 付属 し て いる . 
注 2 は , X68000-ACE の み に 付 属し て いる . 
注 1,2 い ずれ も X68000(CZ-600C) に は 付属 し て いな い . 



















































































@ コ マン ド シ ェ ル の 内 部 コマ ンド 


CTRL+C の チェ ッ ク 機 能 の 設定 
CHDIR(CD) カレ ント ディ レク トリ の 変更 ・ 表 示 

CLS キャ ラク タ 画 面 の 消去 

COPY ファ イル の コピ ー 

CTTY 標準 入出 力 デ バイ ス の 変更 

DATE 日 付 の 表示 ・ 設 定 

DEL(ERASE) ファ イル の 削除 

DIR ディ レク トリ 内 容 の 表示 

EXIT コマ ンド シェ ル か ら 親 プロ セス へ 制御 を 戻す 
HIS ヒス トリ 内 の コマ ンド ライ ン の 表示 
MKDIR(MD) ディ レク トリ の 作成 

PATH 外部 コマ ンド を 検索 する た め の サ ー チ パス の 表示 , 評 
PROMPT プロ ンプ ト の 設定 
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REN(RENAME) ファ イル 名 の 変更 

RMDIR(RD) ディ レク トリ の 削除 

SCREEN キャ ラク タ お よび グラ フィ ッ ク 画 面 の モー ド の 設定 
SET 環境 変数 の 表示 , 設定 

TEMP テン ポラ リフ ァイル を 作成 する ディ レク トリ の 表示 , 設 
TIME 時 刻 の 表示 ・ 設 定 

TYPE ファ イル を テキ スト と し て 表示 

VER 現在 の Human68k の バー ジョ ン の 表示 

VERIFY ディ スク 書込み 時 の チェ ッ ク 機 能 の 設定 

VOL ディ スク の ボリ ュー ムラ ベル の 表示 ・ 設 定 



































信 バ ッ チ 処理 コマ ンド 


バッ チ 処 理 中 に お ける コマ ンド 行 表示 の 有無 の 選択 , メッ セー ジ の 表示 
コマ ンド の 反復 実行 
実行 位置 の 変更 











条件 に よる 実行 の 制御 

バッ チ 処 理 の 一 時 停止 

バッ チ 処 理 中 で の コメ ント 表示 

バッ チ 処 理 中 に お ける パラ メー タ の シフ ト 

















表 己 .4 内 部 プン バッチ ンコ マン ド と 付属 し て いる 外部 コマ ンド 





シス テム ディ スク に 付属 し て いる 外部 コマ ンド は, AUTOEXEC.BAT を 除い て すべ て X 形式 
で す が , この ほか に も 外部 コマ ンド の 形式 と し て , ZZ 形式 ,R 形式 , バッ チ フ ァイル が あり ます . 
X,Z。R 形式 の コマ ンド は 68000CPU が 直接 実行 可能 な ファ イル で す . 

バッ チ フ ァイル は 。 複数 の コマ ンド を いく つか 書い た ファ イル で ,。 コマ ンド シェ ル が 読み 込ん 
で 解釈 し , 実行 し ます . な お , これ ら の コマ ンド は 拡張 子 に よっ て 判別 され , それ ぞ れ ゞ .X?。 
の 12R っ 7 た 症 つて いう 測 学 。 

以下 で は , XX, Z,、R 形式 の 外部 コマ ンド に つい て 解説 し ます . 


較 X 形 式 

この 形式 の ファ イル は ,C じ コンパ イラ や アセ ン ブ ラ を 経て , 最終 的 に リン カ が 生成 する 実行 可能 
ファ イル で す の で , 最も 一 般 的 な ファ イル 形式 で ある と いえ ます . 

まず , X 形式 の 実行 可能 ファ イル の 内 部 フォ ー マ ッ ト を 表 2.5 に 示し ます . 








2.3 コマ ンド シェ ル 





















































































































オフ セッ ト イ 

+$000000 2 $4855 X 形式 の ID 

+$000002 2 $0000 予約 領域 

+$000004 4 BASE ADDRESS | ^ 1 の / 且 オプ ショ ン で 指定 きれ た べ 
+$000008 4 START ADDRESS TI が な ビード ト た 場合 の 容 符 
+$O0000C 4 TEXT SiZE TEXT セク ショ ン の 大 き さ 

+$000010 4 DATA SIZE DATA セク ショ ン の 大 き さ 
+$000014 4 | HEAP SIZE BSS と STACK セク ショ ン の 合計 の 大 き さ 
+$000018 4 RELOC TBL SIZE ロト リー/ 
+sooootc | 4 SYMBOL TBL SIZE | シン ボル テー ブル の 大 き さ 
+$000020 $20 $00 予約 領域 (現在 は すべ て $00) 
+$000040 TEXT SIZE し 理 3 TEXT セク ショ ン の 内 容 
+OFFSET1 DATASIZE | テ え DATA セク ショ ン の 内 容 
OFFSET2 | RELOCTBL SIZE っ = 0 
+OFFSET3 | SYMBOL TBL SIZE = で 3 シン ボル テー プル の 内 容 


OFFSET1 = $40 + TEXT SIZE 
OFFSET2 = OFFSET1 十 DATA SIZE 
OFFSET3 = OFFSET2 + RELOC TBL SIZE 


表 己 . 巳 X 形 式 の 実行 可能 ファ イル の 内 部 フォ ー マ ッ ト 


え 形 式 の 実行 可能 ファ イル は , 任意 の アド レス に 読み 込ん で 実行 で きる 構造 に な っ て いま す . 
た だ し , 任意 の アド レス と いっ て も , シス テム で 予約 され て いる 領域 に は 読み 込む こと が で きま 
せん . また , 読み 込む アド レス は CPU の 制約 に より , か な ら ず 偶数 テ ケ ド レス で な けれ ば な り ま せ 
ん . 通常 の 場合 , Human68k が X 形式 の 実行 可能 ファ イル を 読み 込む アド レス を 決定 する の で 。 
Huaman68k 上 で ユー ザー が アセ ンプ ブラ な ど で プ ログ ラム を 作成 し た り , 実行 する と き に は 。 読み 
込ま れる アド レス を 意識 する 必要 は ほとん ど あ り ま せん . 

さて , Human68k は X 形 式 の 実行 可能 ファ イル を 読み 込ん で , 実行 する 際 に , 絶対 的 な アド レ 
ス の 値 に 依存 し て いる 箇所 を 補正 し ます . その と き 重 要 な 役割 を 果たす の が 図 2.5 に 示し た リロ 
ケー ショ ン テ ー ブ ル で す 。 こと の テー ブル に は , ファ イル 中 で 絶対 的 な アド レス の 値 に 依存 し て い 
る 部 分 の 場所 を 示す デー タ が 格納 され て お り , DOS は この テー ブル を 参照 し な が ら フ ァイル を 読 
み 込 む ア ドレ ス に 合わ せ て , 絶対 的 な アド レス の 値 に 依存 し た 部 分 を 補正 し ます . 

また , シン ボル 情報 を 付加 する こと が で きる こと 。 プ ログ ラム の 先頭 以外 か ら も 実行 する こと 
が で きる と いう 2 点 は , この あと 解説 する 形式 や R 形式 より 優れ て いる 点 と し て あげ る こと が 
で き 失 で し じょう 。 

この よう に , 形式 の 実行 可能 ファ イル は 作成 ・ 実 行こ あたっ て , な る べく ユー ザー に 負担 を か 
け な い よう な 構造 に な っ て いま す . 
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の ) 


+0 + 4 +6 
$0006 | $001A | $0032 | $060E 語 語 





















プロ グラ ム 
の 先頭 


プロ グラ ム 本 体 


$0006 


$0006 十 $001A= ニ $0020 





$0020 十 $0032=$0052 ペーー 











$0052 十 $060E=$0660 -m 








1| 
1 
し ロード ァ ド p 


ス に 依存 し て いて , 再 配置 し な けれ ば な ら な い 部 分 


図 G.5 リロ ケー ショ ン テ ー ブ ル の 構造 


画 ン 形式 

え 形 式 の ファ イル を C Compiler PRO-68k に 付属 の コン バー タ (CV.X) で 変換 する こと で 得 ら 
れる 実行 可能 ファ イル で すこ の 形式 は X 形式 と 対照 的 で 。 コ ン バ ー ト し た 際 に 決定 し た アド レ 
ス に 読み 込ん で 実行 きれ ます . Human68k は 。 か な ら ず Z 形 式 の 実行 可能 ファ イル を その アド レ 
ス に 読み 込 も うと する の で , その アド レス が シス テム 領域 や RAM 未 実 装 領域 を 指し て いる 場合 
に は 実行 する こと が で きま せん . Human68k の シス テム 領域 に は 明確 な 定義 が あり ませ ん (バー 
ジョ ン な ど に よっ て 変わ る 可能 性 が ある ) の で , この 形式 の プロ グラ ム を 作成 する 場合 は 注意 を 要 


し ます . 
































OFFSET 1 = $O0001C+TEXT_SIZE 
表 己 .B 形式 の 実行 可能 ファ イル の 内 部 フォ ー マ ッ ト 





+$000000 2 $601A Z 形式 の ID 

十 $000002 4 TEXT SIZE TEXT( テ キス ト ) セ クシ ョ ン の 大 き さ 
+$000006 4 DATA SIZE DATA( デ ー タ ) セ クシ ョ ン の 大 き さ 

十 $00000A 4 HEAP SIZE BSS と STACK セク ショ ン を 合わ せ た 大 き さ 
填 $00000E 8 $00 予約 領域 (現在 は すべ て $00) 

土 $000016 4 START_ADDR | 実行 開始 番地 (ロー ド す べき 番地 で も ある ) 
十 $00001A 2 $FFFF Z 形式 の 2 番目 の ID 

+$00001C | TEXT SIZE ーーー 一 TEXT セク ショ ン の 内 容 

填 OFFSET 1 DATA SIZE ーーーー DATA セク ショ ン の 内 容 








2.3 コマ ンド シェ ル 


主 な 用 途 と し て は ,。 他 の コン ピュ ー タ の ソフ トウ ェ ア 開 発 (ROM に 書き 込む プロ グラ ム の 開 
発 ) な ど が 考え られ ます . 
表 2.6 に ZZ 形式 の ファ イル フォ ー マ ッ ト を 示し ます . 


軒 口 形 式 

X 形式 の 実行 可能 ファ イル を コン バー タ (CV.X) で 変換 し て 得 ら れる ポジ ショ ン イ ン デ ィ ペ ン 
デン ト な 実行 可能 ファ イル で す . ポジ ショ ン イ ン デ ィ ペ ン デ ント と は , X 形 式 の よう に 読み 込み 
時 に プロ グラ ム 本 体 に 手 を 加え な く て も , 任意 の アド レス に 読み 込ん で 実行 で きる と いう こと と で 
す ( シ ステ ム 領 域 や 奇数 アド レス へ は 読み 込む めこ と は で き な い ). し た が っ て , この 形式 の ファ イ 
ル に は , X 形式 の ファ イル に つい て くる よう な 補助 情報 (ヘッ ダ な ど ) は いっ さい 必要 な く , 純粋 
に プロ グラ ム だ けが ファ イル と し て 格納 され て いま す 。 余計 な 情報 が つい て いな い 分 ,。 フ ァイル 
の 大 き さ も 小さ きく, また, 読み 込む 時 間 も 短縮 され る と いう 利点 が あり ます . また , この 形式 の 
コマ ンド を 実行 する と き は , 読み 込む べき アド レス を Human68k が 決定 する の で , ユー ザー が ア 
ドレ ス を 意識 する 必要 は あり ませ ん . 

し か し , プロ グラ ム の 作り や すさ と いう 点 で , R 形式 は X 形 式 の コマ ンド に 劣り ます . な ぜ な 
ら , アセ ン ブ リ 言語 の レベ ル に お いて , 絶対 的 な アド レス の 値 に 依存 し た 記述 が で き な い か ら で 
す . つま り , すべ て の 命令 に お いて 実効 アド レス が 相対 アド レッ シン グ 形 式 で な けれ ば な ら な い 
の で す . すなわち , 実効 アド レス は プロ グラ ムカ ウン タ か , アド レス レジ スタ と の 相対 で 表 さ きれ 
て いな けれ ば な り ま せん . 

また , ア ドレッシング モー ド の 限界 に より , R 形式 で 32K バイ ト 以 上 の 大 きき さき の コマ ンド を 作 
成す る の は 困難 で す . それ か ら C Compiler PRO-68k が 出力 する 叉 形式 の 実行 可能 ファ イル は 
R 形式 に は 変換 で きま せん . つま り , R 形 式 の 実行 可能 ファ イル を 作成 する に は ,。 プロ グラ ム を 
アセ ン ブ リ 言語 で 記述 し な けれ ば な り ま せん . ファ イル の 大 き さ や 読み 込む 時 間 を 削減 し な けれ 
ば な ら な い プ ログ ラム は R 形 式 に する 価値 が ある と いえ ます が , その 他 の 場合 は え 形 式 に する 
の が 一 般 的 で す . 


選 .. 己 コマ ンド の 検索 と 実行 
コマ ンド の 実行 は 。 プロ ンプ ト が 表示 され て いる 状態 で 、。 コ マン ド を 入力 する こと で 行い ます . 
た と えば 。 次 の よう に コマ ンド ライ ン を 入力 し て 実行 きせ た と し まし ょ う . 


DISKCOPY A: B: 


コマ シド シェ ル は , まず 入力 され た コマ ンド が 内 部 コマ ンド で ある か どう か を 調べ ます . DISK- 
COPY は 内 部 コマ ンド で は な い の で ,。 カレ ント ディ レク トリ 内 を 次 の 順序 で 検索 し ます . 
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DISKCOPY.R つっ DISKCOPYZ っ つ DISKCOPY.X っ DISKCOPY.BAT 


どれ か が 見 つか っ た 時 点 で 。 その ファ イル を メモ リ 上 に 読み 込ん で 実行 し ます . も し , DISK- 
COPY.X と DISKCOPY.BAT と いう ファ イル が 同じ ディ レク トリ に あっ た 場合 は 。 DISK- 


COPY.BAT で は な く , DISKCOPY.X が 実行 さん る こと に な り ま す . 
また , カレ ント ディ レク トリ に 該当 する ファ イル が 見 つか ら な か っ た 場合 は , 環境 変数 path を 


参照 し 。 そこ に 設定 され て いる ディ レク トリ を 順に 検索 し ます . た と えば , 


path = A :\BIN : A:\LOCAL : B : \BIN 


(で rome ) 
バッ チ フ ァイル を メモ 
リ 上 の 領域 ヘ ロ ー ド する 

先頭 行 に 注目 する 
















己 .B バッ チ フ ァイル の 実行 
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2.3 コマ ンド シモ ミル 


と 姜 定 され て いる と , コマ ンド シェ ル は A :\BIN の な か を , 次 に A : 半 LOCAL, B : 壮 BIN の 
原 で 検索 し て いき ます . これ ら の ディ レク トリ を 検索 し て も 見 つか ら な か っ た 場合 は , 


"コマ ンド また は ファ イル が 違い ます ? 


と いう メッ セー ジ を 出力 し て ,。 コマ ンド の 入力 待ち に 戻り ます . 
な お , バッ チ フ ァイル は , コマ ンド シェ ル が 用 意 し た 作業 領域 に 読み 込ま れ , ファ イル 中 の 各 
行 を コマ ンド ライ ン と 同様 に , 順に 実行 きれ ます ( 図 2.6). 


3.3 1/U の リダイレクト と パイプ の し くみ 

Human68k で は 。 キーボー ド , スク リー ン を は じ め , プリ ンタ や 補助 入出 力 装 置 な ども ファ イ 
ル と し て 扱っ て いま す . つま り , X68000 に 接続 きれ て いる 周辺 装置 と の 入出 力 を , ディ スク 上 の 
ファ イル の 読み 書き と 同様 に 扱う こと が で きる わけ で す . た と えば , 普通 は 画面 に 出力 され て い 
た コマ ンド の 処理 結果 を , プリ ンタ へ 出力 し た り , ディ スク 上 に ファ イル と し て 記録 する こと が 
自由 に 行 を る わけ で す . この よう に 入出 力 の 相手 先 を 切り 換え る こと を IO0 の リダイレクト と 呼 
ん で いま す . 

コマ ンド シェ ル で は , 標準 入出 力 と 呼ば れる 入出 力 先 に -,。 ファ イル や デバ イス を 自由 に 割り 当 
て る こと が で きま す . で すか ら , 標準 入力 と いわ れる 仮想 的 な 入り 口 か ら , 必要 な デー タ を 入力 
し , 標準 出力 と いわ れる 仮想 的 な 出口 へ 処理 結果 を 出力 する よう に プロ グラ ム を 設計 し て お け ば , 
コマ ンド ライ ン か ら デ ー タ の 入出 力 先 を 自由 に 設定 で きま す . この よう な 機能 が 備わっ て いる こ 
と で , プロ グラ ム の な か で 処理 結果 の 入力 元 や 出力 先 を 何 に する か と いう こと を 意識 する 必要 が 
な く な り ま す . 

また , 標準 出力 先 は ょ , ファ イル や デバ イス だ け で は な く , 他 の コマ ンド の 標準 入力 へ つなぐ こ 
と も で きま す . この よう に コマ ンド 間 で 処理 結果 を 受け 渡し する こと を パイ プ 処 理 と いい ます . 
パイ プ 処 理 を 使う こと で , コマ ンド の 出力 結果 を その 次 の コマ ンド で 処理 きせ る こと が で きま す . 





還 |/」 の リダイレクト 

標準 入出 力 を 用 いる と , キー ボー ド か ら 画 面 へ と いう 処理 の 過程 を , ディ スク 上 の ファ イル か 
ら RS-232C へ と 変更 する こと が で きま す . つま り , 標準 入力 を “A : TEST.TXT? に , 標準 出 
力 を ^AUX? に 変更 し て や れ ば よい の で す .。 これ が 1/O の リダイレクト の 動作 に ほか な り ま せん . 
実際 の 1/O の り ダ イレ クト の 例 と し て , SORT コマ ンド を 使っ て み ま す . SORT コマ ンド は 引 
数 が 何 も 指定 され な いと , 標準 入力 か ら の デー タ を 行 単位 で 並べ 替え て , 標準 出力 に 出力 し ます . 
引数 に ファ イル が 指定 され る と , その ファ イル か ら デ ー タ を 読み 込み , 行 単位 で 並べ 替え て , 標 
準 出力 に 出力 し ます . 

次 の コマ ンド ライ ン を 考え て み ま す . 


4 
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SORT < LISTTXT > LIST.SRT 


ゴマ ドル ユル は また 訪 レン トド テイ ズ の か レン トゲ デポ は ダ ト ESL 理 TTY 人 中 TS 
SRT” を オー プン し て アク セス 可能 に し ます . そし て 標準 入力 に “LIST.TXT? を , 標準 出力 に 
^LIST.SRT” を 割り 当て ます . その 後 コ マン ド の 本 体 の SORT コマ ンド を 読み 込ん で 実行 し ま 
す 。 

SORT コマ ンド に 実行 中 に 標準 入力 か ら デ ー タ を 入力 し て , 行 単位 で 並べ 替え を 行い , 結果 の 
デー タ を 標準 出力 へ 出力 し て いる だ け で す . ディ スク と 入出 力 し て いる と いう こと を , SORT コ 
マン ド は 意識 し て いま せん . 

SORT コマ ンド 終了 後 。 コマ ンド シェ ル は “LIST.TXT? と LIST.SRT^ を クロ ー ズ し , 標 
準 入出 力 を も と に 戻し ます . こう し て LIST.TXT? を 並べ 替え た “LIST.SRT^ と いう ファ イ 
ル が ディ スク 上 に 生成 され ます . 

な お , 出力 の リダイレクト の と き に , バ >? の 代わ り に >>? を 使う と 既存 の ファ イル に 追加 
され ます . た と えば , 


DIR A: >> SAMPLE 


と し て 実行 する と , “SAMPLE” の 内 容 に ,。 A ド ライ ブ の カレ ント ディ レク トリ の 内 容 が 連結 さ 
れ ま す . 


還 バ パイプ 

パイ プ は リダイレクト の 応用 と 考え を る こと が で きま す . リダイレクト で は ,。 出力 先 を ファ イル 
か デバ イス に 指定 し て いま し た が ,。 パイ プ は 出力 先 を 他 の コマ ンド の 標準 入力 に つなぎ ます . こ 
れ に よっ て , ある コマ ンド の 処理 結果 を 他 の コマ ンド へ 直接 送り , 連続 し て 処理 を 行う こと が で 
きま す . 

例 と し て 。 次 の よう な コマ ンド を 実行 し て み ま し ょ う . 


DIR | SORT 


コマ ンド シェ ル は , “| ? を 見 つけ る と , 1I/O の リダイレクト に より DIR コマ ンド が 標準 出力 に 
出力 し た デー タ を 一 時 的 に ディ スク に 格納 し ます . 次 に , SORT コマ ンド の 標準 入力 に 。 さき ほ 
ど 作 成 じ し た ファ イル を り リダイレクト - し ます 。 こう し て , 見 か け 上 は DIR コマ ンド の 出力 と SORT 
コマ ンド の 入力 が パイ プ で つなが っ た よう に な る わけ で す . 

Human68k の シス テム ディ スク に は , パイ プ と と も に 使う こと を 前 提 と し た コマ ンド が 4 つ 用 
意 さ れ て いま す . 


・FIND … 指定 され た 文字 列 を 検索 する 
・MORE … テキ スト を 1 画面 ずつ 区 切っ て 出力 する 
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・PR … 入力 され た デー タ を ペー ジ 単 位 で 整形 し て 出力 する 
・SORT … 入力 され た デー タ を 行 単位 で 並び 換え て 出力 する 


これ ら の コマ ンド は フィ ル タ と 呼ば れ , パイ プ と の 組合 せ で いろ いろ な こと が で きる 応用 範囲 
の 広い コマ ンド で す . また , ディ スク に 格納 され て いる 普通 の ファ イル を 入力 に する こと も で き 
る よう 設計 され て いま す . 


. ノ 4 DOB 


ここ で いう DOS と は , HUMAN.SYS に 含ま れ , 次 に 示す 機能 を も っ て いる 部 分 を 指し ます . 
これ ら は , Human68k の 中 核 的 な 機能 と いえ ます . 








・ フ ァイル や ディ レク トリ の 扱い 
・ メ モリ の 確保 や その 開放 な どの 管理 
・ プ ログ ラム の 実行 に 関す る 管理 
・ デ バイ ス と の 論理 的 な デー タ 入 出力 


これ ら の 機能 は 。 サブ ルー チン の よう な 形式 で 用 意 き れ て お り , ユー ザー は この サブ ルー チン 
を 呼び 出す (DOS コー ル ) こ と で さま ざま な サー ビス を 受け る こと が で きま す . これ ら の サー ビス 
が 用 意 き れ て いる こと で , ユー ザー プロ グラ ム 内 で 細か な 制御 を 行わ な く て も すみ ます し ,。 な に 
より ハー ドウ ェ ア に 依存 し な く な る の で , 将来 的 に も プロ グラ ム の 動作 が 保証 さき され る こと に な り 
ま 3 

すでに 紹介 し た よう に , X68000 の 動作 に 欠か せな い 周 辺 装置 , た と えば コン ソー ル ( キ ー ボ ー 
ド と 画面 )。 リ アルタ イ ム ・ ク ロッ ク 。 プリ ンタ , シリ アル イン ター フェ イス (RS-232C)。 ディ ス 
ク ド ラ イブ (2HD フロ ッ ピ ー デ ィ ス ク , 容量 が 40M バイ ト ま で の ハー ド デ ィ スク ) な ど は , 制御 プ 
ログ ラム で ある デバ イス ドラ イ バ が DOS と と も に , HUMAN.SYS に 内 蔵 き まれ て いま す . 


一 [SG コー ル の 呼出 し 

68000CPU は 不当 命令 お よび 未定 義 命 令 , 特権 違反 に よる 例外 処理 や 命令 トラ ッ プ と いっ た 。, 多 
く の 内 部 的 要因 に よる 例外 処理 を 発生 きせ る こと が で きま す . この な か で Human68k に と っ て 
重要 な の が , $FFxx と いう 未定 義 命令 に よる 例外 処理 で す . この 例外 処理 は ライ ン F エミ ュ レ ー 
タタ と 呼ば れ て お り , も と も と 未定 義 命令 \ き ソフ トウ ェ ア で エミ ュ レ ー ト する た め に 用 意 き れ た も 
の で ず 。 

表 2.7 に DOS コー ル の 一 覧 表 を 示し ます . 
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シン ボル 名 
_EXIT プロ セス の 終了 
$FF01 _GETCHAR 標準 入力 か ら 1 文字 入力 (標準 出力 に エコ ー) 
$FF02 _PUTCHAR 標準 出力 へ 1 文字 出力 
$FF03 _COMINP RS-232C 回 線 か ら 1 バ イト 入力 
$FF04 _COMOUT RS-232C 回 線 へ 1 バイ ト 出 力 
$FFO05 _PRNOUT プリ ンタ へ 1 文字 出力 
$FF06 _INPOUT 庁 準 入力 か ら 1 文字 入力 , また は 標準 出力 へ 1 文字 出力 
$FF07 _INKEY 標準 入力 か ら 1 文字 入力 (ブレ ー ク チェ ッ ク な し ) 
$FFO8 _GETC 標準 入力 か ら 1 文字 入力 (プレ ー ク チェッ ク あ り ) 
$FF09 _PRINT 標準 出力 へ 文字 列 を 出力 
$FFOA _GETS 標準 入力 か ら 文 字 列 を 入力 ( ブ プレー クチ ェ ッ ク あ り ) 
_KEYSNS キー 入力 の 有無 の チェ ッ ク 
_KFLUSH バッ ファ を 空 に し た 後 で キー 入力 
$FFOD _FFLUSH ディ スク の リセ ッ ト 
$FFOE _CHGDRV カレ ント ドラ イブ の 変更 
$FFOF _DRVCTRL ドラ イブ の 状態 の チェ ッ ク と 設定 
$FF10 _CONSNS 画面 出力 が 可能 か どう か チェ ッ ク 
$FF11 _PRNSNS プリ ンタ へ の 出力 が 可能 か どう か チェ ッ ク 
$FF12 _CINSNS RS-232C 回 線 か ら の 入力 が 可能 か どう か チェ ッ ク 
$FF13 _COUTSNS RS-232C 回 線 へ の 出力 が 可能 か どう か チェ ッ ク 
$FF17 _FATCHK ドラ イブ 上 の ファ イル の 格納 状態 の チェ ッ ク 
$FF18 ーー 一 漢字 変換 行 の 制御 
$FF19 _CURDRV カレ ント ドラ イブ を 返す 
$FF1A _GETSS 標準 入力 か ら 文字 列 を 入力 ( ブ プレー クチ ェ ッ ク な し ) 
$FF1B _FGETC ファ イル か ら 1 バ イト 入力 
$FF1C _FGETS ファ イル か ら 文 字 列 を 入力 
$FF1D _FPUTC ファ イル へ 1 バイ ト 出 力 
$FF1E _FPUTS ファ イル へ 文字 列 を 出力 
$FF1F _ALLCLOSE すべ て の ファ イル の クロ ー ズ 
$FF20 _SUPER スー パー バイ ザー モー ド と ユー ザー モー ド の 切替 え 
$FF2 1 _FNCKEY ファ ンク ショ ン キ ー 等 の 設定 と 読出 し 
$FF22 _KNJCTRL か な 漢字 変換 ファ ンク ショ ンコ ー ル の 呼出 し 
$FF23 _CONCTRL コン ソー ル へ 直接 出力 
$FF24 _KEYCTRL コン ソー ル か ら 直 接 入力 
$FF25 _INTVCS ベク タ の 設定 
$FF26 _PSPSET プロ セス 終了 時 の 情報 の 取得 
$FF27 _GETTIM2 現在 の 時 刻 の 読出 し (1 秒 単位 ) 
$FF28 _SETTIM2 時 刻 の 設定 (1 秒 単 仁 ) 
$FF29 _NAMESTS ファ イル 情報 の 取得 
$FF2A _GETDATE 現在 の 日 付 の 読出 し 

















シン ボル 名 
_SETDATE 


Z.4 DOS 


日 付 の 設定 





_GETTIME 


現在 の 時 刻 の 読出 し (2 秒 単 位 ) 





_SETTIME 


時 刻 の 設定 (2 秒 単 位 ) 





_VERIFY 


べ ベリ ファ イ の ON/OFF 





_DUPO 


ファ イル ハン ドル の 強制 複写 (複写 先 は 0 て 4 の み ) 





_VERNUM 


OS の バー ジョ ン ナ ン バ ー の 取得 





_KEEPPR 


プロ セス の 常駐 終了 





_GETDPB 


DPB (ドラ イブ パラ メー タ ・ ブ ロッ ク ) の 取得 





_BREAKCK 


ブレ ー ク チェ ッ ク の ON/OFF 





_DRVXCHG 


ドラ イブ の 入 換え 





_INTVCG 


ベク タ の 取得 





_DSKFRE 


ディ スク の 残り の 容量 の 取得 





_NAMECK 


ファ イル 情報 の 取得 





_MKDIR 


ディ レク トリ の 作成 





_RMDIR 


ディ レク トリ の 削除 





_CHDIR 


カレ ント ディ レク トリ の 変更 





_CREATE 


ファ イル の 作成 





_OPEN 


ファ イル の オー プン 





_CLOSE 


ファ イル の クロ ー ズ 





_READ 


ファ イル か ら 1 ブロック 読出 し 





_WRITE 


ファ イル へ 1 ブロ ッ ク 書 込み 





_DELETE 


ファ イル の 削除 





_SEEK 


ファ イル ポイ ンタ の 移動 





_CHMOD 


ファ イル の 属性 の 変更 





_IOCTRL 


デバ イス ドラ イ バ と の 直接 入出 力 





_DUP 


ファ イル ハン ドル の 複写 (複写 先 は シス テム が 決定 ) 





_DUP2 


ファ イル ハン ドル の 強制 複写 





_CURDIR 


現在 の カレ ント ディ レク トリ を 返す 





_MALLOC 


メモ リブ ロッ ク の 確保 





_MFREE 


メモ リブ ロッ ク の 開放 





_SETBLOCK 


メモ リブ ロッ ク の 大 き さ の 変更 





_EXEC 


プロ グラ ム の ロー ド と 子 プ ロ セ ス の 起動 





_EXIT2 


プロ セス の 終了 (終了 コー ド を 返す ) 





_WAIT 


プロ セス の 終了 コー ド の 取得 





_FILES 


ファ イル の 検索 (最初 の ファ イル ) 





_NFILES 


ファ イル の 検索 (次 の フ ァイル ) 





_SETPDB 


実行 プロ セス の 変更 





_GETPDB 


現在 の プロ セス の 管理 ポイ ンタ の アド レス を 取得 





_SETENV 


環境 変数 の 設定 





_GETENV 


環境 変数 の 読出 し 
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シン ボル 名 
_VERIFYG ベリ ファ イフ ラグ の 設定 状況 の 読出 し 
_RENAME ファ イル 名 の 変更 と ファ イル の 移動 








_FILEDATE ファ イル の 日 付 プ 時 間 の 設定 プ 読出 し 
_DISKRED プ ブロッ ク デ バイ ス か ら 直 接 入 力 
_DISKWRT ブロック デ バイ ス へ 直接 出力 

















表 選 . フ ア DOS コー ル の 一 覧 


Human68k は , シス テム 起動 時 に ライ ン F エミ ュ レ ー タ の 例外 ベク タ に DOS コー ル 処 理 ル ー 
チン の 先頭 アド レス を 設定 し ます . その 後 , プ ログ ラム 実行 中 に $FF00-$FFFF の コー ド を 命令 
と し て 実行 し よう と する と , ライ ン F エミ ュ レ ー タ の 例外 処理 が 発生 し , DOS コー ル 処 理 ル ー チ 
ン に 制御 が 移り ます . 

DOS コー ル 処 理 ル ー チ ン で は , 例外 処理 を 発生 させ た 命令 を 調べ 。 上 位 8 ビッ ト が $FF だ っ た 
ら 下 位 8 ビット の 値 を も と に , 各 コ ー ル の 処理 ルー チン が サブ ルー チン コー ル さ れ ま す 。 なお, 
各 コ ー ル の 処理 ルー チン の エン トリ は , $001800 番地 か ら の DOS コー ル ベ ク タ に 格納 され て お 
り , シス テム は ここ か ら 各 処理 ルー チン の エン トリ を 調べ ます . ユー ザー が DOS コー ル の 処理 
ルー チン の エン トリ を 変更 する 場合 に は DOS コー ル $FEF25( INTVCS) を 利用 し ます が , 変更 前 
の エン トリ の 値 は 退避 し て お き , も と に 戻せ る よう に プロ グラ ム す る ほう が 賢明 で す . 


較 HumanB8K が 管理 し て いる その 他 の 例外 処理 

前 述 し た よう に , オペ ラン ド の 番号 が 8~-15 の TRAP 命令 は Human68k が 使用 し て いま す . 
個々 の 番号 に 割り 当て られ て いる 機能 を 表 2.8 に 示し ます . 

その 他 の 例外 処理 は , バス エラ ー や アド レス エラ ー。, 不当 命令 な ど Human68k 上 の プロ グラ ム 
の 実行 に か か わる 部 分 が Human68k の 管理 下 に は いっ て お り , それ ら の 例外 が 発生 する と プロ 
グラ ム の 実行 を 一 時 中 断 し て エラ ー 表 示 を 行い , その 後 の 処理 を 聞い て きま す . その た め , 従来 
の パソ コン に 比べ て プロ グラ ム が 暴走 する と いう 事態 は きわ め て 起こ り に くく な っ て いま す . 
な お , 表 2.8 の TRAP 命令 は Human68k が 管理 し て いる と は いっ て も , 例外 ベク タ は ユー 
ザー が か ん た ん に 変更 する こと が で きま す が , 14, 15 以外 の TRAP 命令 は , 呼出 し 先 の 仕様 が 公 
開 さ きれ て いま せん の で , シス テム の 内 部 を 十分 理解 し て か ら 操 作 し な けれ ば な り ま せん . 


2.4 DOS 


シス テム 予約 
デバ ッ ガ (DB.X) の ブレ ー ク ポイ ント で 使用 


POWER OFF 処理 と リセ ッ ト 

引数 : d0.| = $58363801 一 本 体 前 面 の 電源 スイ ッ チ で パワ ー オ フ 
$58363802 一 外部 敵 子 より パワ ー オ フ 
$58363803 つ ソフ ト 的 に パワ ー オ フ 
他 の 値 つ リセット 


STOP キー が 入力 され た と き の 処 理 ( ハ ー ド ディ スク の シッ ピン グ 処 理 を 含む ) 
引数 : dO.b bitO = 0 一 STOP(CTRL+C) 
1 SHIFT+STOP(CTRL+S) 


COPY キー が 入力 され た と き の キ ャ ラク タ 画 面 ハ バー ドコ ピー 
引数 :dO.b = 0… 縮 小 コ ピー ① 色 ) 
1 一 拡大 コピ ー (1 色 ) 
2 っ 縮小 コピ ー (4 色 ) 
3 つっ 拡大 コピ ー (4 色 ) 
| CRTL+TC キー に よる ブレ ー ク チェ ッ ク フ ラグ の セッ ト 
エラ ー 表 示 と , その 後 の 処 理 の 選択 
引数 : d7w = エラ ー コ ー ド 


IOCS コー ル 
引数 : d0.| = IOCS コー ル 番 号 
他 の レジ スタ の 使わ れ 方 は 各 IOCS コー ル に より 異な る 








Il HH IIH 

















14 











表 .B HumanB8k が 利用 し て いる THAP 命令 


己 .4.1 ファ イル の アク セス 


Human68k で は , デー タ や プロ グラ ム は ファ イル と し て 扱わ れ ま すか ら , 外部 記憶 装置 に デー 
タ を 格納 し た り , 周辺 装置 に 対し て デー タ を 出力 する 場合 も , この ^ フ ァイル” と いう 形式 で デー 
タ 転 送 が 行わ ん れん ます. つまり“ バフ ァイル を アク セス する ” と いう 作業 で ,。 どの よう な 入出 力 で も 
行う こと が で きる の で す . 

プロ グラ ム を 作成 する 際 に は , た いて い フ ァイル の アク セス が 必要 に な る の で , ここ で は , ファ 
イル を アク セス する た め の 手 続き に つい て 解説 し ます . 


一 ファ イル の オー プン 

通常 。 外部 記憶 装置 に 格納 され た デー タ で も , 入出 力 装置 と や り 取 りさ れる デー タ で も , その 
内 容 に アク セス する に は ,。 まず ファ イル の オー プン ” と いう 手続 き が 必要 で す . Human68k は , 
プロ グラ ム か ら フ ァイル を オー プン する と いう 要求 を 受け る と , 指定 され た ファ イル が アク セス 
可能 か どう か を 調べ ます . 可能 な ら , Human68k に より 予約 され て いる メモ リ 上 の 領域 に ファ イ 
ル 管 理 情報 を 格納 し ます . 

実は , Human68k の コン フィ ギュ レー ショ ン フ ァイル で ある CONFIG.SYS に 記述 され て いる 
^FILES=xx” と いう 1 行 は ,。 この ファ イル 管理 情報 を 格納 する 領域 の 個数 を 決定 する も る の な の で 
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す . つま り , Human68k は シス テム 起動 時 に CONEIG.SYS を 読み 込み , “FILES=xx?” と いう 
1 行 に より オー プン され る ファ イル の 最大 数 を 知り , その 数 だ け フ ァイル 管理 情報 を 格納 する た 
め の 領 域 を 確保 し ます . 

ファ イル 管理 情報 に は ,。 ディ スク ファ イル な ら ば , ディ レク トリ エン トリ に 格納 され て いる 情 
報 の ほか , 現在 の アク セス 位置 を 示す ファ イル ポイ ンタ な ど が あり ます . 

DOS コー ル の レベ ル で ファ イル を オー プン する に は ,$FF3D( OPEN) に より すでに 存在 する 
ファ イル を オー プン する か ,$FF3C( CREATE) に より あら た に ファ イル を 作成 し ます . ファ イ 
ル が オー プン で きる と , シス テム 側 は この 次 に 説明 する ファ イル ハン ドル と いう 一 意 の 番号 を 返 
し ます の で 。 ユー ザー プロ グラ ム 側 で は これ を 用 いて ファ イル の アク セス を 行い ます . 








還 ファ イル ハン ドル 

正常 に ファ イル が オー プン で きた ら , Human68k は その ファ イル に 5 以上 の 一 意 の 番号 を 割り 
当て , その 番号 を 返し ます . この 番号 が ファ イル ハン ドル と 呼ば れる も の で す . ファ イル ハン ド 
ル を 得る こと が で きれ ば , あと は ファ イル 名 を 必要 と は し ませ ん . Human68k は , 階層 ディ レク 
トリ を サポ ー ト し て いる た め , ファ イル を アク セス する た びに パス 名 と ファ イル 名 を 指定 し て い 
た の で は , ユー ザー プロ グラ ム 側 も シス テム 側 も その 処理 が 類 雑 に な っ て し まい ます . し か し , 
ファ イル ハン ドル を 用 いる 方 式 な らち ば , ユー ザー プロ グラ ム 側 で は この 2 バイ ト の 整数 を 管理 し 
て いる だ け で よい の で す ( 図 2.7). 


@ フ ァイル の オー プン 





DOS コ ー ル 発行 









・ 渡 され た ファ イル 検索 
・ 見 つか っ た 場合 

① フ ァイル アク セス に 必 
要 な 情報 を 格納 

② 未 使用 の つの ファ イル ハン 

ドル を ユー ザー 側 に 戻 


・ フ ァイル 名 が 格納 され て いる アド レス を 渡す 













す 
・ 見 つか ら な か っ た 場合 

下 ウ デ ョ ビデ ド を なー ザー 
側 に 戻す 


ファ イル ハン ドル , エラ ー コ ー ド の 獲得 
ララ イ 2 OL 7 ッッ ラ ド の 獲得 


@ ファ イル の アク セス 









・ フ ァイル ハン ドル を も と | 「98Gy IDUKCO 7 
に 。 フ ァイル アク セス に 
必要 な 情報 を 検索 

・ 情 報 を も と に ファ イル を 

アク セス 





己 . プ ファ イル ハン ドル の 獲得 
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Z.4 DOS 


DOS コー ル の レベ ル で ファ イル アク セス を 行う に は, $FF1B ( FGETC) や $FE1D 
LFPUTC), $SFF3F( READ), $FF40( WRITE) など を 使用 し ます . これ ら の DOS コー ル に 
ほほ かならず ファ イル ハン ドル を 必要 と し ます . また , Human68k に は , シス テム に より すでに オー 
デン され , ファ イル ハン ドル が 予約 きれ て いる も の が あり ます ( 表 2.9). 


ファ イル ハン ドル 


標準 入力 コン ソー ル ( キ ー ボ ー ド ) 
標準 出力 コン ソー ル ( ス クリ ー ン ) 








標準 エラ ー コン ソー ル 
準 補助 装置 | シリ アル (RS-232C) 
標準 プリ ンタ プリ ンタ (セン トロ ニク ス ) 

















表 己 . シス テム で 予約 され て いる 入出 力 


標準 入出 力 は 。 コ マン ド シ ェ ル で リダイレクト 可能 な 入出 力 で す . また 標準 エラ ー は , コマ ン 
ド シ ェ ル で は リダイレクト で き な い の で , つね に コン ソー ル に 出力 され ます . し た が っ て , コマ 
ンド や アプ リケーション に お ける エラ ー 表 示 に 適し て いま す . 標準 補助 壮 置 に は “AUX? が , 標 
準 プ リン タ に は “PRN” が それ ぞ れ 割り 当て られ て いま す . 両方 と も コマ ンド シェ ル で は リ ダ イ 
レグ トト で きま 性 ん 。 

ユー ザー が オー プン し た ファ イル の ファ イル ハン ドル が 5 以上 に な る の は ,。 この よう に シス テ 
ム が すでに ファ イル ハン ドル 0^4 を 予約 し て ある か ら で す (CONFIG.SYS で 指定 し た オー プン 
する ファ イル の 最大 数 か ら 5 つ 引 いた 数 が 実際 に ユー ザー プロ グラ ム で オー プン で きる ファ イル 
数 ). 

これ ら の ファ イル ハン ドル は , ユー ザー プロ グラ ム 側 で オー プン する 必要 は な く , すぐ に アク 
セス する こと が 可能 で す . 


一 ファ イル の アク セス 

ファ イル の アク セス に は , 大 別して シー ケン シャ ル ア ク セス と ラン ダム アク セス が あり ます . 
シー ケン シャ ル ア ク セス は , ファ イル の 先頭 か ら 順 番 に 1 バイ ト ず つ ア クセ ス を 行う こと を いい 
ます 。 ファ イル 中 の 任意 の 部 分 を 自由 に 読み 出す こと は で きま せん . ラン ダム アク セス は , 読込 
み 可 能 な ら フ ァイル 中 の 任意 の 部 分 を 何 回 で も 読む こと が で き , 書込み 可能 な ら 同 様 に ファ イル 
中 の 任意 の 部 分 に 書き 込ん だ り , また , ファ イル の 最後 か ら 追加 する こと も 可能 で す . 

た と えば , “CON” や ヾ AUX?。 PRN” と いっ た デバ イス ファ イル は 。1 バ イト ずつ 順番 に し 
か デー タ の 入出 力 を 行え ない の で , シー ンジ シャ ル ア ク セス し か で きま せん 、 これ だ 対し て ディ 
スク 上 に 格納 され た ファ イル は , 任意 の 部 分 を 自由 に アク セス で きる の で , シー ケン シャ ル ア ク 
セス も ラン ダム アク セス も 可能 で す . 
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双方 で 共通 し て 使用 する DOS コー ル に は , 1 文字 入出 力 を 行う SFF1B( FGETC) と $FF1C(_ 
FPUTC) や , 文字 列 単位 の 入出 力 を 行う $FF1D( FGETS) と $FF1E( FPUTS), 任意 の バイ ト 数 
で 入出 力 が 行え る $FF3F( READ) と $FF40( WRITE) が あり ます . 

ラン ダム アク セス の み で 便 用 する DOS コー ル は , $FF42( SEEK) で す . SEEK は ファ イル 中 
に お いて これ か ら ア クセ ス さ れる 位置 を 指す サフ ァイル ポイ ンタ を 自由 に 移動 きせ る こと が で きま 
す ( た だ し , ポイ ンタ を ファ イル の 先頭 より まえ に は 移動 で き な い ). し た が っ て , これ を 利用 す 
れ ば ファ イル 中 の 任意 の 部 分 を アク セス で きる の で , ラン ダム アク セス が 可能 に な り ま す . な お , 
READ や WRITE を は じ め , FGETC, FPUTC な どの 入出 力 を 行う DOS コー ル で も 読み 書き し 
た 分 だ け フ ァイル ポイ ンタ は 進み ます . 


較 ファ イル ハン ドル の コピ ー 

通常 」。 フ ァイル を オー プン し た と き に は , その ファ イル に 割り 当て られ た ファ イル ハン ドル は 
1 つ だ け で す が ,。DOS コー ル の $FF2F ( DUP0), $FF45 ( DUP),$FF46 (DUP2) を 利用 す 
る と, 複数 の ファ イル ハン ドル を 用 いて 1 つの ファ イル を アク セス する こと が で きま す . 各 DOS 
コー ル の 機能 に つい て 以下 で 解説 し ます . 


・DUP0 ……… 現在 オー プン し て いる ファ イル の ファ イル ハン ドル を , 強制 的 に コピ ー す 
る . コピ ー さ れる ファ イル ハン ドル は , DUP0O を 呼び 出す 側が 指定 する が , 
その 値 は 0 か ら 4 まで で な けれ ば な ら な い . それ 以上 の 値 の ファ イル ハン 
ドル に 複写 する 場合 は DUP2 を 使う コピ ー す る まえ に , コピ ー さ れる 
ファ イル ハン ドル の クロ ー ズ は 行わ れ な い . 

・DUP ……… 現在 オー プン し て いる ファ イル の ファ イル ハン ドル を , コ ピー する . コ ピー 
され る ファ イル ハン ドル は , DOS が 自動 的 に 決定 する の で , ユー ザー が 決 
め る こと は で き な い . た だ し , 戻り 値 と し て コピ ー さ れ た ファ イル ハン ド 
ル の 値 を 返さ れる . オー プン され て いる ファ イル 数 が 起動 時 の FILES で 
設定 し た 値 よ り 多く , 新しい ファ イル ハン ドル が 作成 で き な か っ た 場合 は 
中 プー に な る 。 

・DUP2 ……… 現在 オー プン し て いる ファ イル の ファ イル ハン ドル を , コ ピー する . コ ピー 
され た ファ イル ハン ドル は 。 DUP2 を 呼び 出す 側が 指定 する が , 指定 し た 
ファ イル ハン ドル が すでに オー プン され て いる と き は , それ を クロ ー ズ し 
て か ら コ ピー する 。 全 だ が さて コピ テ 先 は 失わ れ で しま うこ と ど と が あ ち を の で 
注意 が 必要 . 


な お ,。 DUP0 は , コピ ー 元 と コピ ー 先 の ファ イル ハン ドル が 同じ 場合 , そ の 標準 ファ イル ハン 
ドル を デフ ォ ル ト の 状態 に 戻し ます . 





2.4 DOS 


圏 ファ イル の クロ ー ズ 

ォ オー プン し た ファ イル は , アク セス が 終了 し た ら ク ロー ズ し な けれ ば な り ま せん . クロ ー ズ す 
る と ファ イル ハン ドル は 開放 さき され ます . な お , シス テム で 予約 され た ファ イル ハン ドル は リ ダ イ 
レク ト し て な けれ ば , ユー ザー プロ グラ ム で クロ ー ズ する 必要 は あり ませ ん . DOS コー ル で は 
SEFF3E(CLOSE) を 使い ます . 


己 . イ . ど メモ リ 管 理 

DOS は , 外部 コマ ンド が 実行 きれ る 際 に , それ を 読み 込ん で 実行 する た め に 必要 な メモ リ を 確 
保 し ます . この 確保 さき れ た メモ リ 上 の 領域 を メモ リブ ロッ ク と 呼び 。Human68k は メモ リ の 管理 
を この ブロ ッ ク 単 位 で 行い ます . 

Human68k の 管理 下 で は , メ モリ 上 に 複数 の メモ リブ ロッ ク が 存在 し て いま す . メモ リブ ロッ 
ク は , コマ ンド な どの プロ グラ ム 本 体 や ワー クエ リア , シス テム の 占有 し て いる 領域 な ど に も あ 
り ま す . メモ リ 管 理 と は 。 この メモ リブ ロッ ク が メモ リ 上 で 干渉 し 合っ た り し な いよ うに 管理 す 
る こと を 指し ます 。 





一 メモ リ 管 理 ポ イン タ 
Human68k は , 1 つ 1 つの メモ リブ ロッ ク に メモ リ 管 理 ポ ボイン タ と いう ワー クエ リア を 設け て 
いま す . メモ リ 管 理 ポ イン タ は 表 2.10 の よう な 構造 を も ちっ て いま す . 


和博 きれ で いき 年 の 二 


+$O00o00 1 つま え の メ モリ 管理 ポイ ンタ の 先頭 アド レス 
+$000004 | この メモ リブ ロッ ク を 確保 し た プロ セス の メモ リ 管 理 ボ イン タ の 先頭 アド レス 








填 $000008 この メモ リブ ロッ ク の 最終 アド レス 1 
十 $00000C 次 の メモ リ 管 理 ポ イン タ の 先頭 アド レス 








表 己 .1 メモ リ 管 理 ポ イン タ の 構造 


メモ リ 管 理 ポ イン タ は , か な ら ず メモ リブ ロッ ク の 先頭 に 設け られ ます . また , 最初 の メモ リ 
プ ブロック は シス テム の ワー クエ リア (ディ スク バッ ファ や あら た に 組み 込ま れ た デバ イス ドラ イ 
バ が 格納 され て いる 領域 ) で 。 こ の プ ブロック の メモ リ 管 理 ポ イン タ が 他 の ブロ ッ ク の ポイ ンタ の 起 
点 と な り ま す . また , メモ リ 管 理 ポ イン タ の 先頭 アド レス は , か な ら ず 最 下 位 4 ビッ ト が 0 と な 
り ま す . 

複数 の メモ リプ ロック が メモ リ 管 理 ポ イン タ に よっ て 。 メ モリ 上 で どの よう な 関係 に な っ て い 
る の か を , 2.8 に 示し ます . 
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メモ リブ ロッ ク と 本 連語 SS3 き 半 款 SH メモ リプ ロッ ク 
プロ セス と の リン クッ モリ 管理 ポイ ンタ ⑨ We と うし の リン ク 










メモ リ 管 理 ポ イン タ ⑥ 


プロ セス 管理 ポイ ンタ 





. 日 複数 の メモ リブ ロッ ク の 関係 


この 図 は , Human68k の 起動 後 す ぐに COMMAND.X を 起動 し , その あと で エディ タ な どの ア 
プリ ケー ショ ン ソ フト を 起動 きせ た と き の メ モリ の 状態 で すす. この よう に 2 種類 の リン ク を 設け 
る こと で 複数 の メモ リブ ロッ ク や プロ セス を 管理 する こと が で きる の で す . な お , 最初 の メモ リ 
プ ブロック の 先頭 アド レス は Human68k の バー ジョ ン に よっ て 異な り ま す . 


較 メモ リ の 確保 

あら た に メモ リブ ロッ ク を 確保 する に は , DOS コー ル の $FF48( MALLOC) を 使い ます . ユー 
ザー プロ グラ ム が この DOS コー ル を 発行 する と ,。 シス テム は まだ 使用 3 きれ て いな い メ モリ 領域 
を 探し , 指定 され た だ け の 大 き さ の 未 使用 領域 が 見 つか れ ば そこ に メモ リ 管 理 ポ イン タ を 設定 し , 
戻り 値 と し て , その メモ リ 管 理 ポ イン タ の 先頭 アド レス を 返し ます . 

ユー ザー プロ グラ ム は この 戻り 値 か ら , 確保 さき れ た メモ リブ ロッ ク の 場所 を 知る こと が で きま 
す 。 こう し て 確保 され た メモ リブ ロッ ク は , 何 の 支障 も な く 自 由 に 扱う こと が で きる よう に な る 
わけ で す . 

確保 され た メモ リブ ロッ ク は , 必要 が な く な っ た ら $FF49( MFREE) と いう DOS コー ル で 開 
放 で きま す . また , メモ リブ ロッ ク の 拡大 や 縮小 を 行う に は , $FF4A (SETBLOCK) と ぃ いう DOS 
コー ル を 使用 し ます . 
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2.4 DOS 


選 . イ . コ プロ セス 管理 

有 外部 コマ ンド は メモ リ 上 に 読み 込ま れる と , 1 個 の プロ セス と し て 実行 され ます . Human68k 
志 ほ は ,. メモ リ 上 に 複数 の プロ セス を 置く こと が で きま す が , 同時 に 複数 の プロ セス を 実行 する こ 
と ほ は ほ できません. プロ セス を メモ リ 上 に 常駐 させ , 割込み を 利用 し て 同時 に 複数 の プロ セス が 実 
行き され る よう に 見 せ か ける の は 可能 で す が , この 場合 , プロセ ス 実 行 の 切換 えな どの 処理 は すべ 
で ユー ザー が 管理 し な けれ ば な り ま せん . 

さて, Human68k は 。 メ モリ 中 に 共存 する 他 の プロ セス を 破壊 せ ず に 別 の プロ セス を 実行 し た 
り 。、 プロセ ス が 終了 し た 時 点 で も と の プロ セス に 戻っ た りす る た め に , いく つか の 管理 を 行っ て 
いま す ( 図 2.9). 








メ 至 り リ 上 の イメ ー ジ 実行 の 状況 


ら . 複数 の プロ セス の 扱い 


な お ,。 プロ セス が 起動 し た 直後 は 。 可能 な 限り の メモ リブ ロッ ク が 確保 さ ミ れ て いる の で , 子 プ 
ロ セ ス を 起動 きせ る 前 に , 起動 元 の プロ セス が 置か れ て いる メモ リブ ロッ ク を 縮小 し て 子 プ ロ セ 
ス の た め の 和 領域 を 確保 で きる よう に し な けれ ば な り ま せん . 


画 プロ セス 管理 ポイ ンタ 

Human68k で は , コ マン ド を 読み 込む 領域 を 確保 する と , その メモ リブ ロッ ク の 先頭 に プロ セ 
ス 管 理 ポ イン タ と いう ワー クエ リア を 作成 し ます . プロ セス 管理 ポイ ンタ の 構造 を 表 2.11 に 示 
し まる 3 

プロ セス 管理 ポイ ンタ に 格納 され て いる 値 は 。 プロ セス 起動 時 に 与 を られ た パラ メー タ や 。 そ 
の と き の シ ステ ム の 状態 を 保存 し た も の で , プロ セス が 終了 し て , その プロ セス を 実行 し た 親 プ 
ロ セ ス ( た と えば COMMAND.X) に 戻る と き に 使用 きれ ます . 


較 プロ セス の 起動 
ある プロ セス か ら 別 の プロ セス を 起動 する こと を 子 プ ロ セ ス 超 動 と いい ます . プロ セス を 起動 
し た プロ セス を 親 プ ロ セ ス , 起動 きれ た プロ セス を 子 プ ロ セ ス と いい ます . 
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さ 


オフ セッ ト サイ ズ 格納 され て いる 値 の 意味 






































































































































+$000000 4 プロ セス に 与え られ た 環境 エリ ア の 先頭 アド レス 

十 $000004 4 プロ セス が 終了 する 際 に 戻る アド レス 

寺 $000008 4 プロ セス が OTRL+C で て 中断 さ れ た 際 に ジャ ンプ する アド レス 
+$00000C 4 プロ セス が エラ ー に より 中 止 さ れ た 際 に ジャ ンプ する アド レス 
土 $000010 4 プロ セス に 与え られ た コマ ンド ライ ン の 先頭 アド レス 
+$000014 | 12 | ファ イル ハン ドル 使用 状況 を 示 ナ ビッ トマ ッ プ 

填 $000020 4 プロ セス の BSS の 先頭 アド レス 

填 $000024 4 プロ セス の ヒー ブ プ 領 域 の 先頭 アド レス (BSS と 同じ ) 

+$000028 4 プロ セス の 初期 スタ ッ ク ア ドレ ス ( ヒ ー プ 領域 の 最終 アド レス +1) 
填 $00002C 4 親 プ ロ セ ス の USP の 値 

填 $000030 4 親 プ ロ セ ス の SSP の 値 

填 $000034 2 親 プ ロ セ ス の SR の 値 

+$000036 2 アボ ー ト (中 止 ) の 際 の SR の 値 

填 $000038 4 アボ ー ト (中 止 ) の 際 の SSP の 値 

土 $00003C 4 TRAP #10 命令 で 呼び 出さ れる アド レス (パワ ー オ フ ま た は リセ ッ ト の 処理 ) 
2 
390044.| 人 | PoPf9mSehmoPPmtonp 由 2 

+00004C | 4 | (エラ ー 示 と 。 明生 押入 の 選択 な どの 姓 

十 $000054 28 未 使用 

土 $000070 68 | 起動 され た ファ イル の フル パス 名 | 
十 $0000B4 24 起動 され た ファ イル の ファ イル 名 














填 $0000CC 











未 使用 


表 己 .] 1 プロ セス 管理 ポイ ンタ の 構造 





子 プ ロ セ ス 起 動 の 際 に 注意 し な けれ ば な ら な い の は ,。 親 の 環境 や ファ イル ハン ドル が 保存 きれ 
な いと いう こと で す . MS-DOS で は , 親 の 環境 や ファ イル ハン ドル の 情報 の コピ ー が 子 プ ロ セ ス 
に 渡さ れる た め , 子 プロ セス が 環境 や ファ イル ハン ドル を いく ら 変 更 し て も , 親 プ ロ セ ス に 制御 
が 戻る と き に は も と に 戻り ます . し か し , Human68k で は , 子 プ ロ セ ス に 渡さ きれ る 環境 や ファ イ 
ル バ ハン ドル の 情報 が 親 の それ な の で , 子 が 親 の 環境 な ど を 変更 する こと が で き て し まい ます . も 
し , これ ら の 情報 を 変更 し て し まう 可能 性 が ある 場合 に は , 子 プ ロ セ ス 側 で コピ ー し て 退避 し て 
お く 必 要 が あり ます . 


外部 コマ ンド を 実行 する に は , $FF4B( EXEC) と いう DOS コー ル を 使 
コー ル を 発行 する と , 確保 で きる 最大 の メモ リブ ロッ ク を 確保 し , そこ に プ 


Z0 





用 し ます . この DOS 
ロ セ ス 管 理 ポ イン タ 




















2.4 DOS 


を 設定 し ます . そし て コマ ンド を プロ セス 管理 ポイ ンタ の すぐ あと に 読み 込ん で 実行 を 移し ます 
が その と き レ ジス タ に 各種 の パラ メー タ が セッ ト さ れ ま す . 表 2.12 に その パラ メー タ を 示し ま 
サ 。 














格納 され て いる 値 の 意味 
プロ セス の メモ リ 管 理 ポ イン タ の 先頭 アド レス 
プロ セス (DATA, BSS, STACK セク ショ ン も 含む ) の 最終 アド レス +1 
プロ セス に 渡さ れる コマ ンド ライ ン の 先頭 アド レス 
プロ セス に 与え られ る 環境 エリ ア の 先頭 アド レス 
プロ グラ ム の 実行 先頭 アド レス 




















表 己 .1] 己 プロ セス に 渡さ れる パラ メー タ 


な お ,MS-DOS な ど と は 違っ て 。 プロ セス に 渡さ れる 環境 は 親 プ ロ セ ス の 環境 を その も の な の 
で , 親 か ら 渡さ れ た 環境 ポイ ンタ を も と に し て 環境 を 変更 する と 親 の 環境 も 変更 され て し まう の 
で 注意 し て くだ さい 、. 

コマ ンド ライ ン の 構造 を 図 2.10 に , 環境 の 構造 を 図 2.11 に 示し ます . 




















+ キ 0 二 1 寺 2… 








nul ま で の 文字 数 コマ ンド ライ ン の 本 体 $00 


己 .1D プロ セス に 渡さ れる コマ ンド ライ ン の 構造 





BPRTH C:NBINiR:NBINiREMOCRLiRIVCCjR:N 

RzTEMP C: 

RSET lib=R:NLI 

陸 NN NMINCLUDE 

2 Debugger u1.91 copuright 198?7 SHRRP4Hudson 


debug program from MO69BFB 
人 96076D40 の プロ セス 窒 寺 ボイン タ の 先頭 アド レス 


環境 の 先頭 アド レス 5 ミ 
0 し 環境 エ リア の 大 き さ 1 つの 環境 変数 の 終わ り R 
MM9662D9 隊 娘 政 間 79 61 74 68 3D | 交 42 49 4E SB NRt : NBINi 
4 
3 











89662E9 413R5C42494E3B4132R5CI4C4F43414C3B BINBIN::NLOCL: 
999662F9 41 3 SC 43 43 35 41 38 SC 隊 74 65 6D 78 3D43 BR:NCCiREN、tempC 
9966399 3R 946C69623D413R5C4C4942B696E63 :.lib=R:NLIB.inc 
MM966316 6C 7564653D413R5C494E434C554445 lude=R:NINCLUDE. 
MMB6632g MM 74656D7M3D433R 明 急 385C3B41 3R -Lemp=C: Ni 
MM966359 5C 53 59 53 凶 74 656D793D433R 8960 7 SE Lemp=C: . 


9966349 3D 43 3R 99 99 3R 5C 3B 41 3 5C 53 59 53 99 74 谷 H NSVS. 【 
Mg966359 |65 6D783D4332899H74656D?93D43 3H 釣 emp = .temp=C: 
966369 |99 3R SC 3B 41 3R 5C 53 59 53 9 74 65 6D ?9 洋 日: :NSVS. Lemp= 


9966379 143 3 89HFFFFFFFFFFFFFFFFFFFFFF 
MM966389 IFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FE 
9966399 IFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 
MM663RH6 ] 圧 FE 革 三 圧計 陸 話 計 屋 : 大 注 朋 EE 還 お あら 
M99563B6z ( 圧 耳 正 鐵 評 - 計 庄 古 非 聞 FR 圧 EE 陸生 

能 9663C8 IFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 


Re すべ て の 環境 変数 の 終わ り 


3 














図 己 .1 ] プロ セス に 渡さ れる 環境 の 構造 


Z】 


計 オペ レー ティ ング シス テム Human68k 


ら . デバ イス ドラ イ バ 


Human68k は , X68000 に 組み 込ま れ て いる 装置 , あ る い は 接続 され て いる 周辺 装置 を 管理 し て 
ゝ ます . これ ら を 管理 する た め に , 各 装 置 を 制御 す よる デバ イス ドラ イ バ と 呼ば れる プロ グラ ム が 
用 意 さ きれ て いま す . デバ イス ドラ イ バ の な か で も , X68000 の 動作 に どう し て も 必要 な も の 。 た と 
えば キー ボー ド , スク リー ン , ディ スク ドラ イブ な ど を 動か す も の は HUMAN.SYS 内 に 組み 込 
まれ て いま す の で , ユー ザー が 意識 する 必要 は あり ませ ん . 

それ 以外 の 装置 , た と を えば プリ ンタ , FM 音源 な ど は , ユー ザー の 利用 目的 に よっ て 任意 に 組み 
込む こと が で きま す .。 これ を 組み 込む の が 。CONEIG.SYS ファ イル 中 で 指定 する *DEVICE* の 
役割 な の で す . 

し か し , デバ イス ドラ イ バ に 制御 を 要求 する 場合 は , か な ら ず DOS を 経由 し な けれ ば な り ま せ 
ん . その た め , デバ イス ドラ イ バ は DOS か ら の 要求 を 受け 取る こと が で きる よう な 形式 で 作成 さ 
れ て いる 必要 が あり ます . 

本 節 で は , Human68k の デバ イス ドラ イ バ が どの よう な 構造 に な っ て いる か を 解説 し ます 。 










































































己 選 .1] ブロ ッ ク デ バイ ス と キャ ラク タデ バイ ス 

デバ イス ドラ イ バ で 制御 する デバ イス に は , 入 出力 の 扱い の 違い か ら , ブ ロッ ク デ バイ ス と キャ 
ラク タデ バイ ス の 2 種類 が あり ます . 

プロ ッ ク デ バイ ス は , ディ スク の よう に 一 度 に まとまっ た デー タ を 読み 書き で き ,。 ラン ダム ア 
クセ ス の 可能 な デバ イス で す . ブロ ッ ク デ バイ ス に は HUMAN.SYS に 内 蔵 き まれ て いる 2HD フ 
ロッ ピー ディ スク や ハー ド デ ィ スク が あり ます 。 ま た 。 組み 込ま れ だ 順に や A+ る B 人 や C: ィ 7 
… と いう 連続 し た 名 前 が つけ られ ます . 

キャ ラク タデ バイ ス は 1 文字 単位 で シー ケン シャ ル に 入出 力 を 行い ます,、 この デバ イス は , そ 
れ ぞ れ “CON”。 “PRN” と いっ た 固有 の 名 前 を つけ られ ます . キャ ラク タデ バイ ス と 入出 力 を す 
る 際 に は , それ ぞ れ に つけ られ て いる 名 前 を ファ イル 名 と し て 扱い ます . 

キャ ラク クタ デバ イズ は ゴン ソー ル デ バ パス (60N) プリ ンタ デバ パス (PRN /LPV な ど が 
DOS に 内 蔵 き まれ て いま す . また , これ ら の 組み 込み ずみ の デバ イス と, あら た に 作成 し た デバ イ 
ス を 置き 換え る こと が で きま す . た と えば , “CON” と いう デバ イス が 複数 組み 込ま れ て いた ら 。 
最後 に 組み 込ま れ た デバ イス が 有効 に な り ま す . 























2.5 デパ イス ドラ イ バ 


己 巳 己 デバ イス ドラ イ バ の フォ ー マ ッ ト 

通常 , デバ イス ドラ イ バ は ディ スク な どの 外部 記憶 装置 中 に , 拡張 子 が “SYS” の ファ イル と 
し て 格納 され て いま す . た だ し , あと で 解説 する “FLOAT?.X” と ヾ OPMDRV.X? は 例外 で 
デバ イス ドラ イ バ で ある に も 関わ ら ず 拡張 子 は “.X? で す . 

Human68k は 起動 時 に ^CONFIG.SYS* を 解析 し , 指定 され た デバ イス ドラ イ バ を 外部 記憶 装 
置か ら メ モリ 上 に 読み 込み ます . ここ で 知っ て お いて も らい た い の は ,。 デ バイ ス ド ラ イ バ は XX 形 
式 の 実行 可能 ファ イル と まっ た く 同 じ フ ォ ー マ ッ ト で 外部 記憶 装置 に 格納 され て いる と いう こと 
で す . し た が っ て , デバ イス ドラ イ バ 内 の 命令 コー ド 部 に お いて 絶対 的 な か アド レス の 値 に 依存 し 
て いる 箇所 が あっ て も , Human68k は メモ リ 上 で その 人 箇所 が 正常 に 実行 され る よう 読み 込み 時 に 
修正 し ます . つま り デ バイ ス ド ラ イ バ の ファ イル 形式 は X 形式 の 実行 可能 ファ イル と 同じ で な け 
れ ば な ら な い , と いう こと と を 覚え て お いて くだ さい . 

また , デバ イス ドラ イ バ の 内 部 構造 に も 規定 が あり ます ( 図 2.12). 





デバ イス ヘッ ダ ① 、 






デバ イス ニニ トー デュ 
ドラ イ バ ① 克 ト ス 表れ チン 次 の ヘッ ダ へ の 
割込み ルー チン ボ オ ン を 
スス 
1 スト ラテ ジル ー チ ン 
& 





割込み ルー チン 


己 .1] 己 デバ イス ドラ イ バ の 基本 的 な フォ ー マ ッ ト 


デバ イス ドラ イ バ の 先頭 に は 。 デバ イス ヘッ ダ と 呼ば れる $16 バイ ト の デー タ を 置か な けれ ば 
な り ま せん . デバ イス ヘッ ダ に は DOS が デバ イス ドラ イ バ を 呼び 出す と き に 必要 な 情報 が 格納 
され て いま す . デバ イス ヘッ ダ の 構造 を 表 2.13 に 示し ます . 

デバ イス ドラ イ バ の 内 部 構造 は , その 先頭 に デバイス ヘッ ダ が 存在 し て いる こと と ,。 複数 の デ 
バイ スペ ヘッ ダ が 存在 する と き , 正 常に リン ク ポ イン タ が 設定 され て いる こ と が 規定 され て いま す . 
し た が っ て , デバ イス ヘッ ダ の 後 の 構造 は 自由 で す ( も ちろ ん , プロ グラ ム と し て 正常 に 動作 し な 
けれ ば な り ま せん が ). 

図 2.12 に 示し た スト ラテ ジル ー チ ン と は , 実際 に 処理 を 行う まえ に , Human68k が 用 意 し た リ 
クエ スト ヘッ ダ と 呼ば れる パラ メー タ 領 域 へ の ポイ ンタ を 受け 取る ルー チン で す 。 リ クエ スト 
ヘッ ダ へ の ポイ ンタ の 値 は , その 後 の 処理 の た め に デバ イス ドラ イ バ 内 に 退避 し て お か な けれ ば 
な り ま せん . 





グラ 
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格納 され て いる 値 の 意味 


次 の デバ イス ドラ イ バ へ の リン ク ポ イン タ 

1 つの ファ イル に 複数 の ドラ イ バ が 存在 する 場合 は , 次 の ドラ イ バ の デバ イス ヘッ ダ 
の 先頭 アド レス を 格納 する 

最後 の ヘッ ダ で は , 一 1 を 格納 する 


デバ イス の 属性 を 示す 





十 $000000 4 






































ビ ピット 15 = 0: ブロ ッ ク デ バイ ス 
三 1: キ ャ ラク タデ バイ ス 
ビッ ト 14 = 0: DOS コー ル SFF44(IOCTRL) に よる 入出 力 が 不可 能 
= 1 : DOS コー ル $FF44(IOCTRL) に よる 入出 力 が 可能 
ビッ ト 12^ て 6 : 未 使用 
填 $000004 2 ビッ ト 5 = 0:COOKED モー ド (1 バイ ト ず つ 処 理 す る ) 
1 : RAW モー ド (指定 バイ ト ず つ 処 理 す る ) 
ビッ ト 4 : 未 使用 
ビッ ト 3 = 1: CLOCK デバ イス と する 
ビッ ト 2 = 1:NUL デバ イス と する 
ビッ ト 1 = 1 : 標準 田 力 デ バイ ス と する 
ビッ ト 0 = 1: 標準 入力 デバ イス と する 
填 $000006 4 スト ラテ ジル ー チ ン の エン トリ アド レス 
+$00000A 4 割込み ルー チン の エン トリ アド レス 
キャ ラク タデ バイ ス の 場合 , デバ イス ファ イル の 名 前 を 格納 する 
土 $00000E 8 ブロ ッ ク デ バイ ス の 場合 , 先頭 1 バイ ト に $20 以下 の 値 を 格納 する . その 他 の 部 分 は 












任意 
注 : COOKED モー ド と RAW モー ド で は , CTRL+S, CTRL+Z な どの コン トロ ー ル コー ド の 処理 が 違う . 





表 己 .1 コ 3 デバ イス ヘッ ダ の 構造 


割込み ルー チン と は , スト ラテ ジル ー チ ン が 呼ば れ た と き に 退避 し た ポイ ンタ の 値 か ら リ クエ 
スト ヘッ ダ を 得 て , それ を も と に 実際 の 入出 力 の 処理 を 行う ルー チン で す . 

デバ イス ドラ イ バ の 処理 ルー チン を わざ わ ぎ 2 つ に 分 け て いる 理由 は , Human68k の マル チタ 
スク 化 の た めで ある と され て いま す . マル チタ スク に な っ た 場合 ,、 デ バイ ス ド ラ イ バ の 処理 状態 
に 関係 な く 入出 力 の 要求 が 発生 し ます . この と き ,。 デバ イス ドラ イ バ は すべ て の 要求 を 順番 に 処 
理 し て いか な く て は な り ま せん . そこ で , 入出 力 の 要求 を 整理 し て 次 に 処理 すべ き 要 求 を 決定 す 
る ルー チン (スト ラテ ジル ー チ ン ) と , 実際 に 1 つの 要求 に 対す る 入出 力 の 処理 を 行わ せる ルー チ 
ン ( 央 込み ルー チン ) を 分 ける と , マル チタ スク 用 の デバ イス ドラ イ バ に 変更 し や すく な り ま す . 
実際 に 入出 力 の 処理 を 行う ルー チン は , シン グル タス ク で も マル チタ スク で も それ ほど 変わ りな 
く 。 変更 箇所 が 少な く て すむ か ら で す . 

た だ し , Human68k が シン グル タス ク で ある と き に は , ドラ イ バ の 処理 ルー チン が 2 分 割 きれ 
て いて も 意味 が な い の で 。 ス トラ テ ジ ル ー チ ン で は リク エス ト ヘ ッ ダ へ の ポイ ンタ を 退避 し た あ 
と , すぐ に DOS に 戻ら な けれ ば な り ま せん . また 。 DOS 側 は スト ラテ ジル ー チ ン を 呼び 出し た 
あと , すぐ に 割込み シー チン を 呼び 出し て いま す . 









































〆 オ 4 


2 の 5 ワン パ が ドラ ンマ 


.5.3 DOS と デバ イス ドラ イ バ の 間 の デー タ の 受渡 し 

DOS は か な ら ず デバ イス ドラ イ バ を 通し て 周辺 装置 と の デー タ の 入出 力 を 行い ます . その た め 
に は , まず その 周辺 装置 を 管理 する デバ イス ドラ イ バ の あり か を 探さ なけ れ ば な り ま せん . この 
と き , DOS が 参照 する の が デバ イス ヘッ ダ で すず す . 表 2.14 に 示し た よう に , デバ イス ヘッ ダ に は 次 
の デバ イス ドラ イ バ の あり か を 示す リン ク ポ イン タ が 格納 され て いる の で , DOS は これ を デバ イ 
スペ ヘッ ダ ご と に 参照 し て , 目的 の デバ イス ドラ イ バ を 探し ます . 

デバ イス ドラ イ バ と の 入出 力 の 際 に 必要 に な る パラ メー タ は , DOS が リク エス ト ヘ ッ ダ の た め 
の 領域 を 確保 レ し て , そこ に 格納 し ます . そ し て リク エス ト ヘ ッ ダ の 先頭 アド レス を A5 レジ スタ に 
セッ ト し た あと ,。 すでに 探し た デパ イス ドラ イ バ の デバ イス ヘッ ダ よ り ス トラ テ ジ ル ー チ ン の エ 
ント リ を 求め .、 そ こ を サブ ルー チン コー ル し ます . デ バイ ス ド ラ イ バ 側 で は , A5 レジ スタ の 値 を 
割込み ルー チン か ら 参 照 で きる よう に 退避 し ます . DOS は スト ラテ ジル ー チ ン を 呼び 出し た あ 
と , すぐ に 割込み ルー チン を 呼び 出し ます . デバ イス ドラ イ バ 側 は , リク エス ト ヘ ッ ダ の 内 容 に 
従っ て 処理 を 行い 。 エラ ー コ ー ド を D0 レジ スタ と リク エス ト ヘ ッ ダ の な か に セッ ト し て 終了 し 
ます . 

パラ メー タ の 受け 渡し は , リク エス ト ヘ ッ ダ と いう 1 つの ヾ \ 乏 ? に DOS と デバ イス ドラ イ バ が 
必要 な パラ メー タ を 入れ る こと で 行わ れる , と 考え れ ば よい で し ょ う . 図 2.13 に DOS か ら デ バ 
イス ドラ イ バ へ の パラ メー タ の 受け 渡し の 様子 を , 表 2.14 に エラ ー コ ー ド の 意味 を 示し ます .。 















② ス トラ テ ジ ル ー チ ン を コー ル 
(A5 レ ジス タニ リク エス ト ヘ ッ ダ の 先頭 アド レス ) 
③ 割 込み ルー チン を コー ル 
デバ イス 
。 ドライバ 







DOS 





⑥ エ ラー コー ド 等 を 受け 取る ⑤⑥ エ ラー コー ド 等 を セッ ト 


リク エス トペ ヘッ ダ 


刀 .1G パラ メー タ の 受渡 し 
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戻り 値 の 上 位 バ イト その 後 の 処 理 の 選択 内 容 


^ 中 止 く A> 再 実行 く < > 無視 < 





^ 中 止 く > 再 実行 く R> 無視 く 





^ 中 止 く A> 再 実行 <R> 無視 < 





^ 中 止 く > 再 実行 < > 無視 <| 





中止 く <A> 再 実行 く < > 無視 <| 





^ 中 止 く > 再 実行 く R> 無視 く <| 





中 止 く <A> 再 実行 <R> 無視 <| 


戻り 値 の 下位 バイ ト 


無効 な が ユニット 番号 の 指定 





ドラ イブ の 準備 が で き て いな い 





無効 な が コマ ンド コー ド の 指定 





CRC エラ ー の 発生 





ディ スク の 管理 領域 が 破壊 され て いる 





シー クエ ラー の 発生 





無効 な が メディ ア を アク セス し た 





セク タ が 見 つか ら な い 





プリ ンタ が オフ ライ ン で ある 





書込み エラ ー の 発生 





読出 し エラ ー の 発生 





その 他 の エラ ー の 発生 





ライ ト プ ロ テク ト (取替え 不可 ) 





挿入 され て いな い 
〇 正常 終了 の 時 に は , $0000 を 戻り 値 と し て 返す 





表 己 .1 イ デバ イス ドラ イ バ か ら の エラ ー コ ー ド 


書込み 不可 (取替え 可能 ), また は ディ スク が 





リク エス ト ヘ ッ ダ 内 の パラ メー タ は キャ ラク タデ バイ ス と ブロ ッ ク デ バイ ス で 違い が あり ま 


す . ここ で は リク エス トペ ヘッダ の 内 容 を この 2 つの 形式 で 分 け て 解説 し ます . 


選 .5.4 キャ ラク タデ バイ ス へ の コマ ンド コー ド 














Human68k が デバ イス ドラ イ バ に 要求 する 処理 内 容 は , リク エス ト ヘ ッ ダ の 32 
目 に 格納 され て いる コマ ンド コー ド ( 長 き 1 バイト) で 決定 し ます . コマ ンド コー ド は ,。 0 か ら 12 





























E 頭 か ら 2 バイ ト 





まで の 整数 で す ( 表 2.15). それ で は , コマ ンド コー ド の それ ぞ れ の 意味 を 詳し く 見 て み ま し ょ う . 





初期 化 





未 使用 





未 使用 





IOCTRL (DOS コー ル $FF44) に よる 入力 





入力 (デー タ が 用 意 さ れる まで 待つ ) 





先読み 入力 (デー タ が な く て も 待た な い ) 





入力 ステ ー タ ス の チェ ッ ク 





久 力 ペペ ゲ フン の 光 ア 





出力 (VERIFY OFF の と き ) 





出力 (VERIFY ON の と き ) 





出力 ステ ー タ ス の チェ ッ ク 





未 使用 








表 己 15 


画 初期 化 ( コ マン ドコ ー ド : 0) 


IOCTRL (DOS コー ル $FF44) に よる 出力 





コマ ンド コー ド の 一 覧 (キャ ラク タデ バイ ス ) 





25 = デバ イス ドラ イ バ 


初期 化 ルー チン は , Human68k の 起動 時 に デバ イス ドラ イ バ を 組み 込む 際 に 1 回 だ け 呼 ば れ ま 
す . まず ,。CONFIG.SYS に 登録 され て いる ^DEVICE=* の 右側 に 記述 され て いる パラ メー タ を 
受け 取り , その 解析 と 処理 を 行い ます . そし て タイ トル 表示 や デバ イス の 初期 化 後 に 。 デバ イス 
ドラ イ バ が 占有 する 領域 の 終わ ちり の アド レス を リク エス ト ヘ ッ ダ に セッ ト し て , シス テム に 戻り 


ます 、 
リク エス 





ヘッ ダ を 表 2.16 に 示し ます . 


$16 (定数 ) 





未 使用 





コマ ンド コー ド (O) 





エラ ー コ ー ド の 下位 バイト 





モラ ビー コー ド の 和 E 作 2 パイ ド 





未 使用 





デバ イス ドラ イ バ の 最終 アド レス 














表 ど ら .1B 初期 化 の と き の リ クエ スト ヘッ ダ 


パラ メー タ 格 納 領 域 の 先頭 アド レス 
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画 入出 力 ( コ マン ドコ ー ド : 3, 4, 日 , , 1 ら ) 

この 1/O リ クエ スト は , ディ スク や キャ ラク タデ バイ ス 。 あ る い は デバ イス ドラ イ バ 自 体 と 
デー タ を や り 取 り し ます . 

入力 の 場合 ,、 デバ イス か ら 読 み 込 ん だ デー タ を 指定 され た バイ ト 数 だ け 。 指定 され た バッ ファ 
に セッ ト し ます . デー タ が 用 意 さ きれ て いな けれ ば , デー タ が そろ うま で 待ち ます . 

出力 の 場合 , 指定 され た バッ ファ か ら 指 定 さ れ た バイ ト 数 の デー タ を デバ イス に 書き 込み ます . 
コマ ンド コー ド 9(VERIFY ON の と き の 出 力 ) の 場合 は 。 デ バイ ス に デー タ を 書き 込ん だ 直後 に 
デー タ を 読み 込ん で , 正しく 書き 込ま れ て いる か どう か を チェ ッ ク し ます . 

リク エス ト ヘ ッ ダ を 表 2.17 に 示し ます . 












































$1A (定数 ) 
†$01 1 Ep 未 使用 
填 $02 1 IN コマ ンド コー ド (3, 4, 8, 9, 12) 
十 $03 1 OUT エラ ー コ ー ド の 下位 バイ ト 
土 $04 1 OUT エラ ー コ ー ド の 上 位 パ イト 
填 $05 9 ーー 未 使用 
+†$OE 4 IN 転送 デー タ 格 納 領 域 の 先頭 アド レス 
4 転送 デー タ の バイ ト 数 














表 己 .1 フ 入出 力 の と き の リ クエ スト ヘッ ダ 


一 先読み 入力 (コマ ンド コー ド : 避 ) 

デバ イス か ら 1 バイ ト だ け デ ー タ を 先読み し ます . デー タ が 読み 込め る 場合 に は , その デー タ 
を , 次 に 読込 み を し た と き に ふた た び 読 み 込 め る よう に デバ イス ドラ イ バ 内 の ワー クエ リア な ど 
に 退避 し た あと で ,。 リク エス ト ヘ ッ ダ の バッ ファ に セッ ト し て 戻り ます . デー タ が 読み 込め な い 
場合 に は リク エス ト ヘ ッ ダ 内 の バッ ファ に $00 を セッ ト し て 戻り ます . 

リク エス ト ヘ ッ ダ を 表 2.18 に 示し ます . 
































オフ セッ ト | サイ ズ | 入出 力 内 。 容 ・ 意 味 
+$00 1 IN $1A (定数 ) 
+$01 1 ーー | 未 使用 | 
二 $02 1 IN コマ ンド コー ド (5) 
†$03 1 OUT エラ ー コ ー ド の 下位 バイト 
填 $04 1 OUT エラ ー コ ー ド の 上 位 バ イト 
填 $05 8 Sg 未 使用 
+†$0D 1 OUT 先読み し た デー タ 





表 己 .1 先読み 入力 の と き の リ クエ スト ヘッ ダ 


25 デバ イザ IP ライ ッ ペ 


一 ステ ー タ スチ ェ ッ ク ( コ マン ドコ ー ド : BB, 10) 

デバ イス が 入出 力 可能 か どう か を 調べ , 可能 で あれ ば ステ ー タ ス と し て $00 を , 不可 能 で あれ ば 
$01 を リク エス ト ヘ ッ ダ に セッ ト し て 戻り ます . 

リク エス ド ペ ヘッ ダ を 守る .19 だ まず チ 。 





$1A (定数 ) 
未 使用 








コマ ンド コー ド (6, 10) 
エラ ー コ ー ド の 下位 バイ ト 
エラ ー コ デー ドド の 上 位 バ イト 

















〇 ステ ー タ ス は エラ ー コ ー ド と し て 格納 する . 
入出 力 可 能 : エラ ー コ ー ド = $O000 
入出 力 不可 : エラ ー コ ー ド = $O001 


表 選 .1 弓 ステ ー タ スチ ェ ッ ク の と き の リ クエ スト ヘッ ダ 


弄 入力 バッ ファ の クリ ア ( コ マン ドコ ー ド : フ ) 

それ まで 入力 され た デー タ を 格納 し て いた バッ ファ を クリ ア し ます . こ の 場合 の バッ ファ と は , 
デバ イス ドラ イ バ 自 身 が 確保 し て , デー タ の 入力 の 際 に 使用 し て いる ロー カル な バッ ファ の こと 
を 指し ます . 

リク エス ト ヘ ッ ダ を 表 2.20 に 示し ます . 


$1A (定数 ) 
未 使用 
コマ ンド コー ド (7) 











エラ ー コ ヨー ド の 下位 パイ ド 
ge ニャ ーー ド ' の EE: 位 / パ イト 

















表 ら .GD 入力 バッ ファ の クリ ア の と き の リ クエ スト ヘッ ダ 


ロー プロ ッ ク プ ソ Wf RA0 当 マシ ド ョ ー ド 

Human68k が デバ イス ドラ イ バ に 要求 する 処理 内 容 は , リク エス ト ヘ ッ ダ の 先頭 アド レス +2 
に 格納 され て いる コマ ンド コー ド ( 長 さ 1 バイト ) で 決定 し ます . コ マン ドコ ー ド は 0 か ら 12 ま で 
の 整数 で す . 表 2.21 に ブロ ッ ク デ バイ ス の コマ ンド コー ド の 一 覧 表 を 示し ます . 
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表 己 戸 1 


古 初期 化 ( コ マン ドコ ー ド : ) 
キャ ラク タデ バイ ス で の 処理 に 加 





数 と , そ の ユニ ッ ト 数 分 の BPB(Bios Parameter Block) の アド レス を 1 


機 能 

0 初期 化 rr 
1 ディ スク 交換 チェ ッ ク 
2 未 使用 
3 IOCTRL (DOS コー ル $FF44) に よる 入力 
4 入力 
5 ドラ イブ コン トロ ー ル & セ ンス 
6 未 使 用 
7 未 使用 
8 出力 (VERIFY OFF の と き ) 
9 出力 (VERIFY ON の と き ) ] 
10 未 使用 
11 未 使用 

IOCTRL (DOS コー ル $FF44) に よる 出力 


コマ ンド コー ド の 一 覧 (ブロ ッ ク デ バイ ス ) 


> 一 


えて 





その デバ イス ドラ イ バ が サポ ー ト し て いる ユニ ッ ト の 


給 べ た BPB テー ブル へ の 





ポイ ンタ を リク エス ト ヘ ッ ダ に セッ ト し て 戻り ます . 
ブロ ッ ク デ バイ ス の ドラ イ バ は , 初期 化 の と き に , その ドラ イ バ が サポ ー ト する ディ スク の 特 
性 を 表す BPB を シス テム に 渡し ます . シス テム 側 は それ を も と に し て DPB(Drive Parameter 
Block) と 呼ば れる 管理 テー ブル を 内 部 に 作成 し ます . 
表 2.22 に BPB の 内 容 を , 表 2.23 に DPB の 内 容 を 示し ます . 


圭 $000000 





ドラ イブ 名 に 対応 する 装置 番号 (0=A : , 1=B :, …) 












































+$000001 1 デバ イス ドラ イ バ 内 に お ける ユニ ッ ト 番 号 
十 $000002 2 1 セクタ 当り の バイ ト 数 

填 $000004 1 1 クラ スタ 当り の セク タ 数 一 1 

寺 $000005 1 先頭 クラ スタ の セク タ 番 号 

填 $000006 2 FAT 領域 の 先頭 の セク タ 番 号 

土 $000008 1 FAT 領域 の 個数 

+$000009 1 1 つの FAT 領域 当り の セク タ 数 
+$00000A 2 ルー トディ レク トリ の 最大 エン トリ 数 

土 $00000C 2 デー タ 格 納 領 域 の 先頭 の セク タ 番 号 

填 $00000E 2 全 ク ラス タ 数 1 

填 $000010 2 ルー トディ レク トリ 領域 の 先頭 の セク タ 番 号 
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填 $000012 


2559 2 人 バズ ドラ 2 ポ 


デバ イス ドラ イ バ の 先頭 アド レス 





填 $000016 


FAT ID (メデ ィ ア バイ ト ) 





填 $000017 


DPB を 使用 し て いる か どう か を 示す フラ グ (-1 なら 使用 し て いな い ) 





填 $000018 


次 の DPB の 先頭 アド レス 





寺 $00001C 


カレ ント ディ レク トリ の クラ スタ 番号 (0 な ら ル ー ト ディ レク トリ ) 





+$00001E 


土 $000000 








カレ ント ディ レク トリ の パス 名 





表 ら . 己 ら BBPB の 内 容 


1 セク タ 当 り の バイ ト 数 (1024 バイ トブ プ セ クタ で 固定 ) 





十 $000002 














1 クラ スタ 当り の セク タ 数 (1 セク タン クラ スタ で 固定 ) 





十 $000003 


FAT 領域 の 個数 





填 $000004 


予約 領域 の セク タ の 数 





填 $000006 


ルー トディ レク トリ の 最大 エン トリ 数 





填 $000008 


全 領 培 (予約 領域 ・FAT 領域 等 も 含む ) の セク タ 数 





填 $00000A 


FAT ID (メデ ィ ア バイ ト ) 





填 $00000B 














1 つの FAT 領域 当り の セク タ 数 


表 ら . ら 3 DPB の 内 容 


実際 に シス テム に BPB を 渡す 場合 . ド ライ バ が サポ ー ト する ユニ ッ ト 数 分 だ け BPB を 用 意 し 





な けれ ば な ら な い の で , 各 BPB へ の ポイ ンタ を ユニ ッ ト 数 分 だ け ぶ 








べた BPB テー ブル を 作成 





し , その テー ブル へ の ポイ ンタ を シス テム に 渡し ます . 
リク エス ト ヘ ッ ダ を 表 2.24 に 示し ます . 






$1A (定数 ) 








填 $01 未 使 用 











EZ シー ドド コード (9) 














エラ ー コ ー ド の 下位 バイ ト 











エラ ー コ ー ド の 上 位 バ イト 








+$05 8 未 使用 





























+$OD 1 OUT ユニ ッ ト 数 

填 $OE 4 OUT デバ イス ドラ イ バ の 最終 アド レス 

+$12 4 IN パラ メー タ 格 納 領域 の 先頭 アド レス 
OUT BPB テー ブル の 先頭 アド レス 























十 $16 1 


〇 ドラ イブ 番号 






0 つ A ド ライ ブ 
トー.B ドラ イデ 


表 | 己 4 初期 化 の と き の リ クエ スト ヘッ ダ 


Il 


IN 割り 当て られ た 最初 の ドラ イブ 番号 
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田 ディ スク 交換 チェ ッ ク ( コ マン ドコ ー ド : 1 ) 

ユニ ッ ト 番 号 で 指定 され た ドラ イブ の ディ スク が 交換 され た か どう か を チェ ッ ク し て , ディ ス 
ク が 交換 され た 場合 に は $FF( 一 1) を , 交換 きれ て いな い 場 合 に は $01 を 。 リ クエ スト ヘッ ダ の 
デー タバ ッ フ ァ に セッ ト し ます .。 なお, ディ スク が 交換 きれ た か どう か が 不明 の 場合 は 。$FF を 
選 玉 トド し 吾 近 。 

Human68k は 戻り 値 を 調べ て , シス テム の 内 部 の I/O バッ ファ の デー タ が 有効 で ある か どう か 
を 決定 し ます . ディ スク が 交換 され て いた な ら ば , I/O バッ ファ の デー タ は 無効 で す . 

また , メ ディ アバ イト と は , 指定 し た メデ ィ ア の 種類 を 表す 1 バイ ト の デー タ で , FAT の ID に 
も 利用 きれ て いま す . 

リク エス ト ヘ ッ ダ を 表 2.25 に 示し ます . 





$1A (定数 ) 


ユニ ッ ト 番 号 








コマ ンド コー ド (⑪ 
エラ ー コ ー ド の 下位 バイ ト 








エラ ー コ ー ド の 上 位 バ イト 
未 使用 
FAT ID (メデ ィ ア バイ ト ) 











デー ラク タウ マッ プア 














表 ら . 己 5 ディ スク 交換 チェ ッ ク 時 の リク エス ト ヘ ッ ダ 


田 入出 力 ( コ マン ドコ ー ド : 2, 日 , 紀 ) 

入力 の 場合 、 ユ ニッ ト 番 号 で 指定 され た ドラ イブ の 開始 セク タ 番 号 か ら 指 定 さ きれ た セク タ 数 分 
だ け , 転送 バッ ファ に デー タ を 読み 込み ます . 

出力 の 場合 も , 指定 され た ドラ イブ の 開始 セク タ 番 号 か ら 指定 され た セク タ 数 分 だ け , 転送 バッ 
ファ に 格納 され た デー タ を 書き 込み ます コマ ンド コー ド が 9 の と き は ,。 書込み 後に その デー タ 
を 読み 込ん で , 正しく 書き 込ま れ て いる か どう か を チェ ッ ク し ます . 

リク エス ト ヘ ッ ダ を 表 2.26 に 示し ます 。 





田 ドラ イブ コン トロ ー ル と ドラ イブ セン ス ( コ マン ドコ ー ド : 選 ) 

ユニ ッ ト 番 号 で 指定 され た ドラ イブ に 対し て , 内 部 コマ ンド で 指定 され た 処理 を 行い 。 ドラ イ 
ブ の 状態 を バッ ファ に セッ ト し て 戻り ます . 

リク エス ト ヘ ッ ダ を 表 2.29 に 示し ます 。 


2.5 デバ イス ドラ イ バ 


$1A (定数 ) 
ユニ ッ ト 番 号 
コマ ンド コー ド (4, 8, 9) 
エラ ー コ ー ド の 下位 バイ ト 
エラ ー コ ー ド の 上 位 バ イト 

















未 使用 

FAT ID (メデ ィ ア バイ ト ) 

転送 デー タ 格 納 領域 の 先頭 アド レス 
転送 デー タ の セク タ 数 
先頭 セク タ 番 号 

















表 己 2B 入出 力 時 の リク エス ト ヘ ッ ダ 


$1A (定数 ) 
ユニ ッ ト 番 号 

コマ ンド コー ド (5) 

エラ ー ヨ ー ド の 位 パ イト 
エラ ー コ ー ド の 上 位 バ イト 
未 使用 

内 部 コマ ンド 

ドラ イブ の 状態 
































人 @ 内 部 コマ ンド 


ドラ イブ の 状態 を 調べ る の み 

イジ ェクト する (イジ ェクト 禁止 の 状態 で は 無視 され る ) 
イジ ェクト 禁止 1( ユ ー ザ ー 用 ) 

イジ ェクト 許可 1( ユ ー ザ ー 用 ) 

ディ スク が セッ ト さ れ て いな いと き , LED 点灯 

ディ スク が セッ ト さ れ て いな いと き , LED 消灯 

イジ ェクト 禁止 2(DOS 用 ) 

イジ ェクト 許可 2(DOS 用 ) 





























@ び ドラ イブ の 状態 



































LED 点灯 

BIT6 = 1 | イジ ェクト 禁止 
BITS = 1 | バッ ファ ぁ り 
BIT4 ニ 1 | ユー ザー 禁止 ] 
BITS = 1 | ライ ト プ ロ テク ト 
BIT2 = 1 | ドラ イブ ノッ トレ ディ 
BIT1 1 | メデ ィ ア 挿入 

1 | メデ ティ ア 誤 挿入 





表 己 己 フ ドラ イブ コン トロ ー ル と ドラ イブ セン ス 時 の リク エス ト ヘ ッ ダ 
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己 . 品 ファ イル シス テム 


ユー ザー が 作成 し た コマ ンド や デー タ は ディ スク な ど に 保存 し ます . この と き 。 ディ スク の ど 
この トラ ッ ク の どの セク タ に 何 が 格納 され て いる の か と いう こと を , ユー ザー が つね に 意識 する 
の は ほとん と ど 不 可能 で す . そこ で DOS は , ユー ザー が ディ スク に 格納 する デー タ を , トラ ッ ク や 
セク タ と いっ た 物理 フォ ー マ ッ ト に 依存 し た 単位 で 管理 する の で は な く , パフ ァイル ? と いう 論理 
的 な 概念 で 扱え を る よう に し て いま す . 











己 .5.1 ディ スク 内 の 構成 


Human68k の ファ イル シス テム の 管理 下 で は , ディ スク は 図 2.14 の よう な 4 つの 領域 に 分 か 
れ て いま す . 基本 的 な 構成 は , MS-DOS と 同じ で ある と 思っ て 差し つか えな いで し ょ う . 


予約 領域 


FAT( 予 備 ) 


ディ レク トリ 領域 
(ルー ト ディ レク トリ ) 





ーー つ 
し て いな い 場 合 は 不 必要 










FAT の 管理 下 に ある 







デー タ 領 域 
(ファ イル , 
ザ ブ デ ィ レ クト リ ) 






図 .14 ディ スク 内 の 基本 構成 


男 FAT 

ディ スク の デー タ 領 域 は 。 クラ スタ と いう 論理 的 単位 に 分 割 し て 管理 され て いま す . ディ スク 
の 管理 を ,。 セク タ で は な く ク ラス タ 単 位 で 管理 する 理由 は 。 ファ イル を アク セス する プロ グラ ム 
が セク タ の 大 き さ や トラ ッ ク 当 た り の セク タ 数 を 意識 し な く て すむ か ら で す (Human68k で は , 1 
クラ スタ に は 1 セクタ が 割り 当て られ て いる ). 

FAT(File Allocation Table) に は , どこ の クラ スタ が どの よう に 使わ れ て いる か と いう こと が 記 
銚 さ れ て いま す . FAT の 構造 は . ディ スク の 記憶 容量 の 関係 で 1.5 バイ ト FAT と 2 バイ ト FAT 
の 2 種類 が あり ます . それ ぞ れ の FAT の 構造 を 図 2.15 に 示し ます . 

また , FAT の 先頭 2 個 分 は 、 デ バイ ス の 種類 に よっ て シス テム が 決め て お り , と くに FAT の 
先頭 1 バイ ト は FAT ID また は メデ ィ ア バイ ト と 呼ば れん て いま す ( 表 2.28). 
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26 還 ジア ァ イッ レシ コス ち 


@1.5 バ イト FAT 
クラ スタ 002 は クラ スタ 003 に 続く 


クラ スタ 003 は クラ スタ 004 に 続く 
ク ラス タ 004 は クラ スタ 005 に 続く 


ーー そい 


1 
1 
M ャ 
クラ スタ ー--- 002 003 004 005 ゴ ー- ク ラス タ 005 は FFF な の で 終了 
1 1 1 | 
1 
も 所 し 


ー 未 使用 


BBBGGGHDHBGPGBGBGGGHBGBB 








PP ス 光 の @ FAT の 値 の 意味 
FAT 領域 開始 を 9000 2 
示す ID $002<$FF6… 次 の クラ スタ 番号 
$FF7 men 使用 不能 クラ スタ 
$FFF ……… 終り の クラ スタ 
@ 2 バイ ト FAT 
クラ スタ 002 は , クラ スタ 003 は , 
クラ スタ 003 に 続く クラ スタ 004 に 続く 
ク る まず コ 胡 時 き ト [ 002 0 は 和 y 得 見 。 
BRBHBHGGDHGBDOGHBIBGBB 
4M バ パイ ト 以 上 の メジ ス l 了 
容量 が ある ハー ド デ ィ スク FFFF な の で 終了 
領域 の 開始 を 示 
用 FAT 領域 の 開始 を 示す ID FAT の 値 の 意味 
$0000 …0( の (io 未 使 用 エリ ア 
$0002 て $FFF6… 次 の クラ スタ 番号 
$WFFF7 …… の tt 使用 不能 クラ スタ 
$WFFFF ……trm 終り の クラ スタ 


.15 FAT の 構造 


FAT の サイ ズ 
フロ ッ ピ ー デ ィ ス ク (2HD) 5k/Y- 他 ド 
ハー ド デ ィ スク (4M バイ ト 以 下 ) 1.5 バイ ト 
ハー ド デ ィ スク (5M バイ ト 以 上 ) 2 バイ ト 
RAM ディ スク 1.5 バイ ト 
SRAM ディ スク 1.5 バイ ト 























表 ら .58 FAT の ID 


一 ディ レク トリ 

ディ レク トリ 内 に は , フ ァイル や サブ ディ レク トリ に 関す る 情報 が は らい っ て いま す が , そ の 個々 
の 情報 を ディ レク トリ エン トリ と いい ます . ディ レク トリ は この エン トリ の 集合 と ほえ ます . 
2.29 に 。 Human68k に お ける , ディ レク トリ エン トリ の 構造 を 示し ます . 


Human68k で は , ルー トディ レク トリ は 特別 扱い に な っ て いま す . サブ プ デ ィ レ クト リ ほ 長き が 
可変 で , ディスク の 記憶 容量 の 許す 限り 大 きく で きま す が , ルー トディ レク トリ は ま AT の 管理 下 
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に な く ,。 ディ スク 内 で の 位置 や その 長 さ は 固定 され て いま す ( 図 2.15 参照 ) . し た が っ て , ルー ト 
ディ レク トリ に 作れ る ファ イル や サブ ディ レク トリ の 数 は 限定 され て いて , 2HD タイ プ の フロ ッ 
ピー ディ スク に は 192 個 .、 ハー ド デ ィ スク に は 512 個 ま で し か 作れ ませ ん . また ,。 サブ ディ レク 
トリ に は それ 自身 (.^) と その 親 ..?) を 示す ディ レク トリ エン トリ が か な ら ず あり ます が 。 ル ー 
トディ レク トリ に は それ が あり ませ ん . 

また , Human68k で は , ディ レク トリ を ファ イル と 同様 に オー プン し て その 内 容 を 直接 参照 ・ 設 
定 す る に は , セク タタ を 直接 アク セス し な けれ ば で きま せん . 
































オフ セッ ト 









先頭 の 1 バイ ト が $00 : ディ レク トリ の 終り 
$E5 : 消去 され た ファ イル 
+$000000 8 $05 : $E5 で 始ま る ファ イル 名 
その 他 : 通常 の ファ イル 名 

(残り は スペ ー ス ($20) を 格納 し て ある ) 
十 $000008 3 拡張 子 (残り は スペ ー ス を 格納 し て ある ) 
属性 (アト リ ビ ュ ー ト ), ビッ ト が 1 な ら 有 効 
bit7ー bit6: 0 

bit5 : 通常 ファ イル 

bit4 : ディ レク トリ 

bit3 : ボリ ュー ム 名 

bit2 : シス テム 属性 

bit1 : 不可 視 属性 

bitO : 書込み 禁止 属性 


填 $00000C 10 ファ イル 名 の うち 9 文字 目 以降 の 部 分 (残り は $00 を 格納 し て ある ) 


ファ イル を 最後 に 変更 し た 時 刻 (16 進数 ) 
bit15 …。 bit13 : 分 の 下位 3 ビッ ト 
十 $000016 2 bit12 bit8 : 秒 x2 
bit7 … bit3 : 時 
bit2 …- bitO : 分 の 上 位 3 ビッ ト 
ファ イル を 最後 に 変更 し た 日 付 (16 進数 ) 
bit15 < bit13 : 月 の 下位 3bit 
十 $000018 2 bit12 ^- bit8 : 日 
bit7 <^- bit1 : 年 一 1980 
て bitO : 月 の 上 位 1bit 


ファ イル の 先頭 が 格納 され て いる クラ スタ 番号 
(上 位 バ イト と 下位 バイ ト か 逆転 し て 格納 され て いる ) 


4 ファ イル の 長 さ (下位 バイ ト か ら 格 納 さ れ て いる ) 























十 $00000B 1 











































+$00001A 2 














寺 $00001C 








表 己 己 B ディ レク トリ エン トリ の 構造 


己 .5. 己 ファ イル の 検索 


Human68k は ,。 どの よう に し て FAT や ディ レク トリ を 参照 し て , 目的 の ファ イル を 見 つけ る 
の で し ょ うか . ここ で は , ^A:\\USR 半 BIN ま FOO.R^ を 検索 する と き の 例 を あげ ます . 
Human68k は 。A ド ライ ブ の ルー トディ レク トリ の な か か ら ゞ USR? と いう ディ レク トリ の エ 
ント リ を 探し ます . 見 つか っ た ら ,。 その エン トリ か ら USR” ディ レク トリ の 本 体 が 存在 する 先 











le e) 
の 





2.7 基本 入出 カシ ンス テム 


頭 の クラ スタ を 求め 、 そこ か ら “BIN′ と いう ディ レク トリ の エン トリ を 探索 し 始め ます . も し 
*USR′ の ディ レク トリ の 先頭 の クラ スタ に BIN” の エン トリ が な けれ ば , FAT を 参照 し て 
*USR” ディ レク トリ の 続き の クラ スタ の 位置 を 求め 検索 を 続け ます . ~BIN” の エン トリ が 見 
つか っ た ら , いま まで と 同様 の 手法 で 。 FOO.R” と いう ファ イル を 探索 し ます . 

この 例 の 検索 の 過程 を 図 2.16 に 示し ます . 








属性 * 











HUMAN.SYS > 
ーーー デジ COMMAND.X 6 
た に 室 CONFIG.SYS ee ユニー ニニ 


ーー AUTOEXEC.BAT 


SYS 
ETC 
USR 











A ド ライ ブ の ルー トディ レク トリ サ プ デ ィ レ クト リ “USR" サブ ディ レク トリ “BIN 


* 属 性 
A : 通常 の ファ イル FOO.R の 本 体 
・ ディレク トリ 


・ ボ リュ ー ム 名 

・ シ ステ ム 属 性 

: 不可 視 属性 

・ 書込み 禁止 属性 








つつ エ の < ロワ 


図ら .1B ファ イル の 検索 





ら . 基本 入出 カシ ステ ム 


X68000 に は , 入出 力 装置 を 直接 に 管理 や 操作 する た め の プ ログ ラム が 格納 され て いる 128K バ 
イト の 容量 の ROM が 標準 装備 きれ て いま す . この うち Human68k が 通常 使用 する の は IOCS 
と 呼ば れる プロ グラ ム で す . IOCS と は Input Ouput Contro1 System の 略 で , 他 の パソ コン で は 
BIOS(Basic Input Output System) と 呼ば れる こと も あり ます . 

IOCS の 役割 は , Human68k な どの シス テム や ユー ザー の プロ グラ ム が 入出 力 装 置 を 
た ん に 扱え る よう に する こと で す . も し , DOS か ユー ザー プロ グラ ム 中 に ハー ドウ ェ 
作 す る サブ ルー チン を 埋め 込ま な けれ ば な ら な いと する と 。, 









































・ プ ログ ラム の サイ ズ が 大 きく な る 
・ い ちい ち サ ブル ー チ ン を 作成 し な けれ ば な ら な い の で , プロ グラ ム の 作成 に 時 間 が か か る 


・ 将 来 ハ ー ド ウェ ア が 拡張 さき れ た と き , ハー ドウ ェ ア 仕 様 の 変更 に より 従来 の プロ グラ ム が 
実行 で き な く な る 可能 性 が ある 
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と いっ た 上 弊害 が 生じ ます . そこ で ,。 コン ピュ ー タ の ハー ドウ ェ ア に 依存 し た 部 
ログ ラム や DOS より さら に 下層 の ROM 内 の サブ ルー チン で 吸収 し て し まえ 
害 は な く な り ま す . 

X68000 に 標準 装備 され て いる 入出 力 装 置 や 、 イ ンタ ー フ ェ イ ス が 用 意 きれ 
IOCS 内 の サブ ルー チン で ほとん ど サ ポー ト さ れ て いま す . 

















己 ./.1 1I0CS の 提供 する サー ビス 


分 仁 ふ テー ザー デジ 
ば , こと の よう な 弊 


て いる 入出 力 は , 


IOCS で は , 表 2.30 に 示す 分 野 を サポ ー ト し て いる サブ ルー チン が 格納 され て いま す . これ ら 








の サー ビス を 利用 する に は , TRAP 命令 を 使い ます . IOCS の 基本 的 な 呼び 出 
ます . 





キー 入力 , キー バッ ファ の チェ ッ ク , キー の 直接 セン ス , キー ボー 
ド 上 の LED の 状態 設定 . また ソフ トキ ー ボ ー ド と 電卓 の 制御 な ど 


し か た を 次 に 示し 


コー ル 番 号 と 名 前 


$00(B_ KEYINP) 
$01(B KEYSNS) 
etC. 


















































テレ ビ の チャ ン ネ ル 切 替え や 音量 調節 , CRT の モー ド 切 替え や コ | $OC(TVCTHRL) 
ント ラス ト の 設定 | etc. 
テキ スト パレ ッ ト の 変更 や 短 形 領域 の GET/PUT, 文字 出力 , カー | $13(TPALET) 
ソル 移動 , 画面 消去 な どの 処理 etc. 
RS-232C へ の デー タ 入 出力 や 通信 で きる か どう か の チェ ッ ク な ど | $30(SET232C) 
RS-232C 
の 処理 etc. 
ジョ イス ティ ッ ク | ジョ イス ティ ッ ク 用 の ポー ト か ら の デー タ 入 力 $3B(JOYGET) 
プリ ンタ プリ ンタ に デー タ を 出力 する た め の サ ブル ー チ ン (直接 出力 と 漢 | $3F(OUTPRN) 
字 対 応 の 2 種類 ) etc. 
ディ ズ ク 2HD まで の フロ ッ ピ ー デ ィ ス ク と 40M バイ ト ま で の ハー ド デ ィ ス | $40(B SEEK) 
ク の アク セス etC. 
リア ル タ イ ム 日 付 , 時 刻 の 設定 , 参照 や アラ ー ム の 設定 , また 日 付 , 時 刻 デ ーー | $50(DATEBCD) 
クロ ッ ク タ の フォ ー マ ッ ト の 変換 etc. 
AD-PCM AD-PCM に よる 音声 入出 力 , 状態 チェ ッ ク , 実行 制御 の 
OPM (FM 音源 LS) の レジ スタ 設定 , 状態 チェ ッ ク 。 害 込み 設定 | 5S8(OPMSET) 
0 マウ スカ ー ソ ル の 表示 ノ 非 表示 . マウ ス の 移動 量 の 検出 . ポ タン RE 
の 状態 チェ ッ ク , マウ スカ ー ソ ル ・ ア ニメーション の 制御 な ど ae 
DMAC (Direct Memory Access Controler の 略称 , CPU を 使 | $82 (B_ BPEEK) 
PD わ ず に メモ リ と 1/O ま た は メモ リ と メモ リ で 直接 デー タ 転 送 が 高 | $S89(B MEMSET) 
速 に 行え る ) を 利用 し た DMA 転送 . バイ トン ワー ドブ プロ ング ワー | $8A(DMAMOVE) 
ド の 各 単 位 で の メモ リア クセ ス etc. 
Wi ン フト JIS と JIS の 相 互 変換 ANK か ら シ フト JIS へ の 変換 ロー | SAO 0 
f マ 字 か ら ANK カナ へ の 変換 や , その 他 全 角 文 字 列 の 濁点 処理 な ど た 
68 
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コー ル 番 号 と 名 前 
グラ フィ ッ ク 画 面 の モー ド 設 定 , ライ ン , ペイ ント , サー クル と | $90(G CLR ON) 
いっ た グラ フィ ッ ク 画 面 へ の 描画 な ど etc. 

スプ ライ ト 画 面 の 制御 . パタ ー ン の 設定 や スプ ライ トレ ジス タ の | $CO(SP INIT) 
設定 な ど etc. 
$C8(BGSCRLST) 


$CC(BGTEXTCL) 
etC. 


グラ フィ ッ ク 画 面 





スプ ライ ト 画 面 





ペッ ググ ラウ ンド バッ ク グ ラウ ンド の スク ロー ルレ ジス タ や コン トロ ー ル レジ スタ 
画面 の 設定 ・ チ ェ ッ ク , バッ ク グ ラウ ンド テキ スト の 設定 , クリ ア な ど 





スー パー バイ ザ モ ー ド と ユー ザー モー ド の 間 の 移行 や , IOCS ROM | $81(B_SUPER) 
の バー ジョ ン の 参照 な ど etc. 


その 他 











表 己 .3D IDCS コー ル 一 覧 


moveqd #IOCSNO,dO 
trap #15 


YIOCSNO” は 各 IOCS コー ル の 番号 を 表し , 0 か ら 255 まで の 数 が 許さ きれ ます . また , 各 IOCS 
コー ル で 必要 と な る 引数 は コー ル ご と に 異な り ま す が , 基本 的 に た だ の デー タ で ある 引数 は デー 
タレ ジス タ D1 より D7 へ 順に 格納 され , また , アド レス を 示す 引数 は アド レス レジ スタ Al1 より 
A6 へ 順に 格納 され ます . A0 レジ スタ は 使用 で きま せん , 戻り 値 は D0. 上 に セッ ト さ れ ま す . 

な お , CCompiler PRO-68k に 付属 し て いる “IOCSCALL.MAC” に は , リス ト 2.1 の よう な 
マク ロ が 用 意 き れ て いま す . 


リス ト . ] IODCS コー ル を 利用 する た め の マ クロ 


10CS macro callname 
moved  #callname,d9 
trap #15 
endm 


そこ で , この 1IOCSCALL.MAC を アセ ン ブ リ 言語 の ソー スプ ログ ラム 中 に イン クル ー ド する 
あ 。 


IOCS LABEL 





の よう に マク ロ を 使っ て IOCS を 呼び 出す こと が で きま す . “LABEL” は 各 1O6S コー ル に つけ 


られ た 名 前 で す . た と えば , IOCS コー ル NO.$10 を 呼び 出す に は , 
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IOCS CRTMOD 


と すれ ば よい わけ で す ( も ちろ ん ,。 こ の マク ロロ 命令 の まえ に 必要 な 引数 を D0L 以外 の 各 レ ジス タ 
に セッ ト し て お か な けれ ば な ら な い ). 


画 〇 言語 の 場合 
"1OCSLIB.HY と いう イン クル ー ド ファ イル と IOCSLIB.A? と いう ライ ブラ リ を 利用 する と , 
次 に 示す よう に 普通 の 関数 と 同じ 形式 で 各 IOCS ユール が 利用 で きま す . 





crtmode 三 CRTMOD(ー1) : 


な お , TRAP15 と いう 関数 も 用 意 さ きれ て いま す . この 関数 は REGS と いう 構造 体 を 引数 と し て 
必要 と し ます . TRAP15 の 使用 例 を リス ト 2.2 示し ます . 





リス ト どど . TRAP15 の 使用 例 


#include <stdio.h> 
#ijnclude <iocslib.h> 


#define CRTMNOD 9x19 
#define READMOD 9xffff /* ワー ド 単 位 で は -1 と な る */ 


main() 

《 
struct REGS inregs, outregsi 
inregs.d! = CRTMOD: 
inregs.d] = READMOD 
TRAP15(&inregs, &outregs): 


printf(" 現 在 の CRT の モー ド 番 号 は %d で す 親 ", outregs.d9): 
exit()? 





. 口 XBBDOO の 起動 と 終了 


X68000 は マシ ン の 電源 ON プ OFF を ソフ トウ ェ ア で 操作 で きる よう に な っ て いま す .。 た と え 
ば , 設定 され た 時 刻 に 本 体 や 専用 テレ ビ を 起動 し た り , 必要 な 処理 を 行っ て か ら 自 動 的 に 電源 を 
留 る 。 と いっ ね 叶う な こと も で きま す 、 

この よう な 機能 を 実現 する た め , マシ ン の 起動 と 終了 の 過程 は 少し 複雑 で す 。 そこ で どの よう 
に し て Human68k が 起動 し , 終了 する の か を 解説 し まし ょ う . 
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2.8 X68000 の 起動 と 終了 


..]1 起動 時 の 処理 
X68000 は 起動 後 , あら か じ め 設定 され た 
トロ ー ル の み を 行う な どの 処理 を 行い ます . その 過程 を 図 2.17 に フロ ー チ ャ ー ト で 示し ます . 


項 に 従っ て , Human68k を 起動 し た り ,。 テレ ビ コ ン 


と 3 




















電源 ON 


周辺 装置 
初期 化 


アラ ー ム て 起動 ? 








SRAM の 情報 を 参照 し , 
処理 を 行う 











Y と くに 指定 し た 
BOOT デ バイ ス 
あり ? 
その デパ イス N N DOS 起 動 の 
か ら 起 動 で き 指定 あり ? 
だ か 2HD 
Y ドラ イブ か ら N 
起動 ? 
| we | 


| wm Il 


ROM か ら 起動 ? 


4 RAM か ら 起 動 ? 


2HD ドラ イブ か ら 起 動 
DOS 起 動 で きる まで 待つ 


図 選 .1 プ 起動 時 の 処理 の 過程 
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弄 ハー ドウ ェ ア の 起動 

前 面 パ ネル に ある 赤い 電源 スイ ッ チ を ON に し ます . 本 体内 蔵 の アラ ー ム 機能 に よる 電源 ON 
で も , 外部 POWER ON 端子 を 使っ た 電源 ON で も 同じ こと で , 本 体内 部 の 主要 な IC や LSI が 
働き 始め , 68000CPU に RESET 信号 が か か り ま す . 
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さて 68000CPU は RESET が か か る と , スー パー バイ ザー・ ス タッ ク ポ イン タタ と プロ グラ ムカ 
ウン タ の 初期 値 を . メモ リ 空 間 の $000000 番地 か ら そ れ ぞ れ 1 ロン グ ワ ー ド (4 バイト) ずつ 読み 
込み ます . 

ここ で 間 題 に な る の は , これ ら の 初期 値 は 電源 投入 時 に すでに メモ リ に 書き 込ま れ て いな けれ 
ば な ら な いと いう こと で す . 電源 投入 時 に メモ リ に 書き 込ま れ て いる た め に は , これ ら の デー タ 
は ROM 化 さ れ て いな けれ ば な り ま せん . し か し , メモ リマ ッ プ を 見 れ ば わか る と お り , 8 バイ ト 
の 初期 値 デ ー タ の 格納 され て いた あと の 領域 は ベク タ 領 域 で あり , RAM で な けれ ば な ら な いと 
ゆ ② 管 あ だ です 。 

この 問題 を 解決 する た め , X68000 は 特殊 な ハー ドウ ェ ア で 図 2.18 に 示す よう な 処理 を 行っ て 
いま す . 








① リ セッ ト 時 の メモ リマ ッ プ ② リ セッ ト 解 除 後 の メ モリ マッ プ 


$000000| jocs RoMz 
の イメ ー ジ SSP の 初期 値 


$00FFFF 1 ロン グ ワ ー ド ) 





メイ ン メ モリ 
空間 


PC の 初期 値 
(1 ロング ワー ド ) 





図 己 1 ヨコ HESET 時 の 番地 の 様子 


画 巳 り DDT プロ グラ ム の 起動 

68000CPU は RESET 後 , ROM($FE0000--$FFFFFF) 内 に ある 初期 化 プ ログ ラム (BOOT プ 
ログ ラム ) を 実行 し ます . BOOT プロ グラ ム は 例外 処理 や IOCS コー ル の 際 に 呼ば れる 各 ル ー チ 
ン へ の アド レス を, それ ぞ れ 例外 ベク タ 領 域 。 IOCS コー ル ベ ク タ 領 域 と 呼ば れる 領域 に 設定 し ま 
す . これ で 例外 処理 や IOCS コー ル が 発生 し て も , 正常 な 処理 が 行わ れ ま す . 

















較 BHAM か ら の 情報 の 取得 

その 後 の 処 理 で 重要 な 役割 を 果たし て いる の が , $ED0000--$ED3FFEF に マッ ピン グ さ れ た 
16K バイ ト の SRAM で す . この SRAM は , バッ テリ ー バ ッ ク ア ッ プ され て いる の で , 本 体 後部 
の 電源 スイ ッ チ を OFF に し て も 一 定時 間 は 内 容 が 失わ れず に すみ ます (本 体 後部 の 電源 スイ ッ 
チ を ON に し て お く と , ソフ トウ ェ ア 的 に 書き 換え られ な けれ ば その 内 容 は 失わ れ な い ). 



















この SRAM に 格納 され て いる 内 容 は , メモ リス イッ チ と 呼ば れ , 起 
情報 で す . な お , SRAM の 先頭 に は 8 バイ ト の ID が あり , これ が 破壊 きれ て いた ら , SRAM の 
内 容 は IOCS ROM に 格納 され て いる 値 に より 初期 化 き され ます . SRAM に 格納 され て いる 内 容 を 
表 2.31 に 示し ます . SRAM の 内 容 の ほとん ど は , SWITCH コマ ンド で 設定 で きる デー タ で す . 


2.8 X68000 の 起動 と 終了 





格納 され て いる 値 の 意味 
SRAM の 内 容 が 壊れ て いる か どう か 判別 する た め の デ ー タ . ここ が 破壊 


助 時 や 終了 時 に 必要 に な る 


























SED0000 | 8 | され て いた ら SRAM を 初期 化す る SR 

$ED0008 4 メイ ン メ モリ 空間 の RAM 実装 領域 の 最終 アド レス +1 $100000 

$EDOOOC | ROM より ブー ト す る と き の エ ント リア ドレ ス が 格納 され て いる アド レス $BFFFFC 

$ED0010 RAM より ブー ト す る と き の エ ント リア ドレ ス $ED0100 
アラ ー ム 起動 し た あと , 電源 を ON に し て いる 時 間 (分 単位 ). IOCS コ 

$EDO014 4 ー ル $5E (ALARMSET) の 引数 D2.L よ り 1 引 いた 値 . 一 1 な ら 電 源 OFF ー1 


し な い . 






























































































































































$ED0018 ブー ト の 優先 順位 き ! 0 
$EDOO1A | RS-232C イン ター フェ イス の 設定 $4E07 
電源 OFF し た と き の キ ー ボ ー ド の LED の 状態 を 示す . リセ ッ ト し た あ 
SEDO01C | 1 | と この 値 か ら LED の 状態 を 決定 する . 6 
IPL に お ける 画面 モー ド . IOCS コー ル $10 (CRTMOD) の 引数 D1.L の 
ED900 24 値 . むやみ に 16 以外 の 値 に 変更 し て は いけ な い . 
アラ ー 後 の 処理 を 示 一 
$ED001E 4 アラ ー ム 起動 後 の 処理 を 示す . IOCS コー ル $5E(ALARMSET) の 引数 A1 0 
L の 値 
アラ ー ~ 支 ーー 
@ED0022 バ 2 ム 起 動 する 日 付 , 時 刻 . IOCS コー ル $5E(ALARMSET) の 引数 D1. $FFFFO000O 
アラ ー ム 発生 の 禁止 , 許可 を 示す フラ グ 
$ED0026 1 0 : 許可 」 7 : 禁止 7 
OPT.2 キー の 使用 目的 を 示す フラ グ 
RGD3g 3 0: テ レビ コン トロ ー ル キー 1: 通常 の キー 引 
$ED0028 1 リセ ッ ト 直 後 の 画面 の コン トラ スト の 値 14 
本 体 電 源 OFF の と き , フロ ッ ピ ビー ディス ク を イジ ェクト する か を 示す フ 
$ED0029 1 用 0 
0: イ ジェ クト し な い 1: イジ ェクト する 
本 体 電源 OFF の 際 の , テレ ビ を コン トロ ー ル する コー ド .IOCS コー ル $0C 
ED9O2A 1 (TVCTRL) の 引数 D1.L の 値 WO 
キー ボー ド の 配列 を 示す フラ グ 
592 馬 gi 0 : JIS 配列 1: あい うえ お 配列 9 
電卓 の 文字 フォ ント を 示す フラ グ 
$ED002C 2 OLCD: ラ ォ シ NNW アニ 9 レジ ラント 8 
SRAM (SED0100 て $ED3FFF) の 使用 目的 を 示す フラ グ 
$EDO02D 1 0 : 使用 し て いな い 1: SRAM ディ スク と し て 使用 0 
2 : プロ グラ ム 格 納 領 域 と し て 使用 
$EDO002E 2 リセ ッ ト 直 後 の テ キス ト パ レ ッ ト 0 の 値 $0000 
$EDO030 2 リセ ッ ト 直 後 の テ キス トバ パレ ッ ト 1 の 値 $F83E 
$ED0032 2 リセ ッ ト 直 後 の テ キス トバ パ レッ ト 2 の 値 $FFCO 
$ED0034 2 リセ ッ ト 直 後 の テ キス ト パ レ ッ ト 3 の 値 SFFFE 
$ED0036 2 リセ ッ ト 直 後 の テ キス トバ パ レッ ト 4 へ 7 の 値 SDE6C 
$ED0038 2 リセ ッ ト 直 後 の テ キス ト パ レ ッ ト 8^-15 の 値 
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格納 され て いる 値 の 意味 初 期 値 
キー の オー トリ ピー ト が 始ま る まで の 時 間 を 示す 
生れ (時 間 =200 二 100 x n[ ミ リ 秒 ], n は ここ に 格納 され て いる 0^115 の 値 ) 
キー の リピ ー ト 間隔 を 示す 
0 】 (時 間 =30+5 x m[ ミ リ 秒 ], m は ここ に 格納 され て いる 0 へ -15 の 値 ) 
$EDO03C 4 プリ ンタ の タイ ム ア ウ ト 時 間 を 示す $80000 
SRAM が 初期 化 さ れ て か ら 直 前 の 本 体 電源 の OFF まで 電源 ON し て いた 
$EDO040 4 時 間 の 総計 . 電源 を OFF する 毎 に 今回 の 電源 ON し て いた 時 間 が 加算 さ 0 
| れる 
SRAM の 内 容 が 初期 化 さ れ て か ら 本 体 電源 を OFF し た 回 数 . 電源 を OFF 
WED0044 | 4 | する 毎 に 加算 され る は 
$ED0048 4 | HOM デ ィ ス ク の FAT 領域 の 先頭 アド レス $FFDCO00 
$ED004C 12 ROM ディ スク の BPB ま 2 
$ED0058 1 シス テム 予約 0 
$EDO059 1 Y\ | て の フォ ント の 指定 0 
$EDO05A 1 ハー ド デ ィ スク の 接続 台数 (0 て 15) 1 
$EDO100 SRAM に プロ グラ ム を 格納 する と き の 先 頭 ア ドレ ス 
$ED0400 SRAM ディ スク の FAT 領域 の 先頭 アド レス 
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$ED3FFF 








SRAM の 最終 アド レス (全部 で 16K バイ ト ) 





※( 注 1) ブート の 優先 順位 
最 優先 デバ イス 


FD (unit=0) FD て HD て ROM て RAM (= 標準 の 順序 ) 








HD (unit=n) HD… 標 準 の 順序 





FD (unit=m) 


FD て 標準 の 順序 





ROM 


ROM… 標 準 の 順序 














RAM 


n : ハー ド デ ィ スク の ユニ ッ ト 番 号 (0 て SF) 


RAM^ ぐ 標準 の 順序 


m: フロッピ デ ィ ス ク の ユニ ッ ト 番 号 (0 て 3) 


※( 注 2) ROM ディ スク の BPB 


































































$000000 1 セク タ 当 り の バイ ト 数 

十 $000002 1 1 クラ スタ 当り の セク タ 数 1 | 
二 $000003 1 FAT 領域 の 個数 1 
+$000004 2 予約 領域 の セク タ 数 0 ] 
+$000006 2 ルー トディ レク トリ の エン トリ 数 32 

填 $000008 2 全 領域 の セク タ 数 9 | 
填 $00000A 1 メデ ィ ア バイ ト (FAT ID) $F9 

十 $00000B FAT 領域 1 個 あ た り の セク タ 数 





表 己 1 SHAM の 内 容 











2.8 X68000 の 起動 と 終了 


な お , ここ で 解説 し て いる ROM の バー ジョ ン は , Ver.1.0, 87-05-07 で す 。 これ 以外 の ROM 
で は 処理 内 容 が 若干 違う 可能 性 が ある の で 注意 を し て くだ さい . ROM の バー ジョ ン は , IOCS 
コー ル S$8F(ROMVER) を 使っ て 知る こと が で きま す . 

さて , BOOT プロ グラ ム は 周辺 装置 の 初期 化 の 際 に , どの よう に X68000 が 起動 し た か と いう 
情報 を 得 ま す . も し , 本 体内 蔵 の アラ ー ム で 起動 し た の な ら ば , SRAM に 格納 され て いる 情報 に 
従っ て 。 テ レビ だ け を つけ た まま に し て お いた り , 指定 し た アド レス に 実行 を 移し て リタ ー ン し 
た ら 電 源 を OFF する , な どの 処理 を 行い ます . た だ し , Human68k を 起動 する よう に 設定 され て 
いれ ば , 次 の BOOT デバ イス の 選択 に 移り ます . 














弄 BOOT デバ イス の 選択 

本 体 前 面 の 電源 スイ ッ チ や 外部 POWER ON 端子 に より 電源 が ON に され て 起動 し た の な ら 
ば , HUMAN.SYS な どの シス テム ファ イル を 読み 込ん で くる 装置 (BOOT デバ イス ) を SRAM 
に 格納 され て いる 情報 で 決定 し ます . BOOT デバ イス は , 次 の な か か ら 選 択 で きま す . 


“2HDO3| 0 2 ジン の ピー デベ ウ 0 ドラ 2 
・HD0 一 15 :。 ハー ド デ ィ スク 0 一 15 ドラ イブ 
・ROM0, 1 : ROMO($BFFFFC), ROM1 ($FF4FFC) 
・RAM0, 1 : RAMO($ED0100), RAM1($ED0C40) 
・STD ・ 2HD? 一 HD ? 一 ROM ? RAM ? 


例 と し て , BOOT デバ イス が ハー ド デ ィ スク (HD0) で ある 場合 の 動作 を 考え て み ま す . 

BOOT プロ グラ ム は , まず ハー ド デ ィ スク の ドラ イブ 0 か ら IPL(Initial Program Loader : 
Human68k 本 体 を 読み 込ん で くる プロ グラ ム ) を 読み 込 も うと し ます . 読込 み に 成 功 し た ら IPL 
を 実行 し ます が , な ん ら か の 理由 で 失敗 し て し まっ た 場合 は ,。 フロッピー ディスク, ハー ド デ ィ 
スク , ROM, RAM (SRAM) の 順番 (STD の 順番 ) で BOOT デバ イス を 検索 し て いき ます . 





HOM〆SRHAM か ら の 起動 
ROM か ら 起 動 す る と き は ,。 次 の よう な 動作 を し ます . 


①$ED000C (SRAM) か ら , 実行 開始 アド レス の 格納 され て いる アド レス を 取り 出す 

② 実 行 開始 アド レス を 取り 出す . も し バス エラ ー が 発生 し た ら ROM か ら の 起動 を あき ら め 
る 

③ 実 行 開始 アド レス を サブ ルー チン コー ル す る 








また , RAM か ら 起 動 す る と き は , 次 の よう な 動作 を し ます . 
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①$ED0010 (SRAM) か ら 実 行 開始 アド レス を 取り 出す 
② 実 行 開始 アド レス が 指し 示す 内 容 の 1 バイ ト 目 が $60 な ら ば , その アド レス を サブ ルー チ 
ンコ ー ル する . それ 以外 の 場合 は RAM か ら の 起動 を も きら め る 




















STD の 順番 で , SRAM か ら も 起動 で き な か っ た 場合 に は , 次 の メッ セー ジ を 画面 に 出力 し , フ 
ロッ ピー ディ スク が 挿入 され る の を 待ち ます . 




















ディ スク か ら 起 動 で きま せん . 正しい ディ スク を セッ ト し て くだ さい . 


と の と き , ディ スク ドラ イブ に IPL の は いっ た ディ スク を セッ ト す れ ば , ディ スク ドラ イブ か 
ら 起動 させ る こと が で きま す . 

な お , IPL の 先頭 1 バイ ト 目 が $60 で な いと , それ は IPL で は な いと 判断 され 。 そ の ディ スク 
に 正しく シス テム が 格納 され て いて も 起動 し ませ ん の で 注意 し て くだ さい . 





SHAM か ら の 起動 

BOOT デバ イス 選択 機能 を 応用 する と, 起動 時 に SRAM 内 に ユー ザー が 書き 込ん で お いた プ 
ログ ラム を 実行 し て 立ち あげ る , と いっ た こと が で きま す .。 た と えば , OPM デバ イス か ら 音 声 を 
出力 し て 起動 する と いう こと と も 可能 で す 。 

この SRAM 内 に 置く プロ グラ ム の 作成 と 組込み に は , 以下 に 示す 点 に 注意 し て くだ さい . 








・ リ ンク 時 に ベー ス ア ドレ ス を 指定 し て , 読み 込み 時 に アド レス の 再 配置 の 必要 が な いよ う 
に する 
LK /B EDO100 TEST.O 
・ デ バッ ガ を 利用 し て , SRAM を 書込み 可能 に し て か ら ($E8E00D 番地 に $31 を 書き 込む . 
$00 を 書き 込む と 書込み 禁止 ),、 ディ スク 上 の プロ グラ ム を R コマ ンド で 読み 込み 。 M コマ 
ンド で SRAM に 書き 込め ば よい 
・ プ ログ ラム の 先頭 の 命令 を , 
start : bra main 
と し て , main か ら プ ログ ラム を 書き 始め る . つま り , プロ グラ ム の 実行 開始 アド レス の 先 
頭 1 バ イト は $60 で な けれ ば な ら な い 
・SWITCH コマ ンド で BOOT デバ イス や SRAM の 使用 目的 を 設定 する . た と えば , 
switch S=ーP B= ニ RAMO 
と 設定 する と , SRAM は プロ グラ ム 用 の 領域 と な り , 起動 時 に は まず SRAM 内 の 
$ED0100 番地 か ら 実 行 し よう と する 


























この よう に し て シス テム に 組み 込ん だ プロ グラ ム が , 不幸 に し て 起動 時 に 正常 に 動か ず 暴 走 し 
て し まっ た 場合 
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エラ ー が 発生 し まし た . リセ ッ ト し て くだ さい 





と いう メッ セー ジ が 画面 に 出力 され ます . 

こう な っ て し まう と , SRAM の 内 容 が 失わ れ な い 限 り , 何 回 リセ ッ ト し て も 上 記 の メッ セー ジ 
が 表示 され , 起動 で き な い と いう 事態 に 陥っ て し まう 場合 が あり ます . こう な っ て し まっ た ら , 
リセ ッ ト ボ タン を 押し た 直後 に , OPT.1 キー と OPT.2 キー を 同時 に 押し 。Human68k が 起動 す 
る まで 押し 続け て くだ さい . この リセ ッ ト 方 法 は 強制 的 に STD の 順序 で 起動 さき せる た め の も の 
2 。 

こう し て 正常 に Human68k が 起動 し た ら , SWITCH コマ ンド で BOOT の 順序 を 変更 し , 暴走 
し た プロ グラ ム の 削除 また は 修正 を し て くだ さい . SRAM に は , 失わ れ た ら 二 度 と 取り 戻せ な い 
デー タ も 格納 され て いる の で , この よう な プロ グラ ム の 組込み に は 十分 注意 し て くだ さい . 




















ディ スク か ら の 起動 

IPL は フロ ッ ピ ー デ ィ ス ク の も の と , ハー ド デ ィ スク の も の と で は 動作 が 多少 違っ て きま す . 
これ は , ハー ド デ ィ スク を 領域 分 割 し て , 複数 の シス テム で 使用 で きる よう に な っ て いる か ら で 
す . ハー ド デ ィ スク の TIPL の 場合 , BOOT プロ グラ ム か ら 起 動き され る と , どの シス テム を 起動 す 
る の か 聞い て きま す . そこ で 1 つの シス テム を 選択 する と , その シス テム を 探し て 見 つか っ た ら 
読み 込ん で 実行 し ます . 

フロ ッ ピ ー デ ィ ス ク の TIPL と , 単 一 の シス テム で 使用 し て いる ハー ド デ ィ スク の TIPL は , 動作 
が ほとん ど 同 じ で , HUMAN.SYS を 探し て 見 つか っ た ら 読 み 込ん で 実行 し ます . な お , 
HUMAN.SYS は ファ イル 属性 が シス テム 属性 に な っ て いる の で , DIR コマ ンド を 実行 し て も 見 
る こと は で きま せん . 

また , HUMAN.SYS が 次 の 条件 を 満た し て いな いと 実行 で きず , 画面 に エラ ー 表 示 が 出力 され 
ます . 








・ ル ー ト ディ レク トリ の 先頭 か ら 32 エン トリ の な か に な けれ ば な ら な い 

・ 連 続 し た セク タ に 格納 され て いな けれ ば な ら な い 

・ ロ ー ド アド レス が $6800 番地 に 固定 され て いる XX 形式 の 実行 可能 な ファ イル で な けれ ば 
な ら な い 

・$6800 番地 か ら 実 行 で き な け れ ば な ら な い 





これ ら の 条件 が すべ て 満た され て いれ ば HUMAN.SYS は $6800 番地 か ら 読 み 込 まれ て , 実行 
され ます . 
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還 0S 内 の 処理 

Human68k は 起動 する と まず 入出 力 装置 の 初期 化 を し ます . この と き 初 期 化 さ れる の は 
HUMAN.SYS で サポ ー ト され て いる 周辺 装置 で 。 それ ら の 装置 の 接続 状態 に 合わ せ て デバ イス 
ドラ イ バ を 初期 化し ます . た と えば , ハー ド デ ィ スク は 接続 きれ て いな い 場 合 も ある の で その 
チェ ッ ク を し , 接続 きれ て いた ら ド ライ ブ 数 や ドラ イブ 名 を 設定 し ます . 

次 に 各 入 出力 装置 の た め の バ ッ フ ァ な ど , シス テム で 使用 する 作業 領域 を 確保 レ しま す . この よ 
うに し て ほとん どの 初期 設定 が 終了 し , ディ スク な どの 外部 記憶 装置 が アク セス 可能 に な る と , 
タイ トル 表示 の 準備 段階 に は いり ます . シス テム を 読み 込ん だ ディ スク の ルー トディ レク トリ か 
ら , TITLE.SYS, KEY.SYS, USKCG.SYS。 CONFIG.SYS の 順番 で 読み 込み 。 そ の 内 容 に 従っ 
た 処理 が 行わ れ , ファ イル が 見 つか ら な か っ た 場合 は , シス テム 既定 値 で 初期 化 さ ん れ ます. 

また , CONFIG.SYS の 設定 内 容 に 従っ て デバ イス ドラ イ バ が 組み 込ま れ , Human68k が 占有 
する シス テム 領域 が 決ま る の で ,。 ユー ザー プロ グラ ム が この 領域 を 誤っ て 破壊 し な いよ うに スー 
パー バイ ザー エリ ア と し , CONEIG.SYS で 指定 され た シェ ル を 起動 し ます . 











選 . ロ . 己 終了 時 の 処理 

X68000 の 本 体 前 面 の 電源 スイ ッ チ を ON に し た と き は , ハー ド 的 に 回 路 が 働き 主要 な IC や 
LSI の 電源 を ON に し ます が , OFF に され た と き は ,。 単に それ ら の 1IC や LSI に 対し て 割込み が 
か か る だ け で す . 

この 割込み が か か る と , 電源 が 切れ る まえ に し な けれ ば な ら な い 処 理 . た と えば ハー ド デ ィ ス 
ク の シッ ピン グ ( ハ ー ド ディ スク の ヘッ ド を シッ ピン グ ゾ ー ン と いう 領域 に 待避 する こと ) な ど を 
その 割込み ルー チン で 行い ます . 
通常 。 本 体 前 面 の 電源 スイ ッ チ また は 外部 POWER ON 端子 が OFF に され る と 割込み が か か 
り , ROM 内 に ある 割込み ルー チン に 制御 が 移り ます . この ルー チン で は スイ ッ チ OFF か ら 約 2 
秒間 電源 スイ ッ チ と POWER ON 端子 の チェ ッ ク を し て , ふた た び ス イッ チ が ON に され て いた 
ら 処理 を 中 断 し て 割込み 処理 か ら 復 帰し ます . スイ ッ チ が OFF の まま だ っ た ら , TRAP#10 命 
令 を 実行 し 。DOS 内 の サブ ルー チン へ 制御 が 移り ます . この ルー チン で 行っ て いる こと は , オー 
プン され て いる すべ て の ファ イル ハン ドル の クロ ー ズ や 。 ディ スク バッ ファ に 関す る 処理 な ど で 
す . 

こう し て DOS に だ 関連 し た 処理 が 終わ っ た な ら ば , 実際 に 電源 を OFF する ROM 内 の サブ ルー 
チン へ 制御 が 移り ます (TRAP #10 命令 を 実行 し た と き の 引 数 の 値 は 。 その まま ROM 内 の ルー 
チン に 渡さ きれ る ). この ルー チン で は ,。 ま ず レ ジス タ D0 の 値 を チェ ッ ク し て ,。 そ の 後 の 処理 を 決 
め ま す . 電源 を OFF に する こと に 決定 し た 場合 は 。SRAM に 格納 され て いる デー タ を 参照 し て 
TV コント ロー ル や フロ ッ ピ ー デ ィ ス ク の イジ ェクト を 行い , また , 必要 な ら ば SRAM の 内 容 を 
更新 し ます . ハー ド デ ィ スク が 接続 きれ て いた ら シ ッ ピ ング し ます . この よう に し て SRAM や 周 
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2.8 X68000 の 起動 と 終了 


辺 装 置 に 対す る 処理 が すべ て 終了 し た ら , I/O エリ ア で ある $E8E00F 番地 に $00, $0F, $OF の 順 
番 で 3 バイ ト 書 き 込ん で 電源 を 切り ます . 

通常 。 電源 が 切れ る 際 に は か な ら ず TRAP#10 命令 が 実行 され る の で , その 例外 ベク タ を 書き 
換え る こと で 電源 の OFF の 前 に ユー ザー プロ グラ ム を 実行 する こと が で きま す . 


電源 OFF ル ー チ ン 


POWER ラ ンプ を 点 減 
させ , 約 2 秒間 待つ 


TRAP 后 10 発 行 


DOS 関 連 の 処理 
回 アイ 2 
ロー ズ な ど 













IOCS ROM で の 処理 
ハー ド デ ィ スク の シッ 
ビ ピング な ど 









本 当 に 
電源 を 切っ て も 
いい の か ? 







$E8E00D に $00, $0F, 
$OF を 書き 込む 


選 .1 ヨ 終了 の 過程 


リセ ッ ト , 再 ス ター ト 
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- ロ AGI ビ プロ グラ ミン グ ガ イド 


X-BASIC は , 制御 構造 や 変数 の 扱い に 言語 と 近い 考え か た 
が 取り 入れ られ た , 新しい 日 AID イン ター プリ タ で す . 従来 の 
BAGSIO を 使っ て プロ グラ ミン グ を し て きた 方 は 違和感 が か ある か 
des: 直し れ ま せん が , コツ さえ 理解 で きれ ば これ まで より 見 通し か よく , 
し か も 言語 より 手軽 に プロ グラ ミン グ を 行う こと が か でき ます. 
また , 次 の 章 で 解説 する 「 COmpiler PHO-BBk』 と いう 
バッ ケー ジ に 収め られ て いる BA5STDO コン バー タ を 使え ば , X 
)- 日 ABIC の プロ グラ ム を 〇 の ソー 300 コモ コッ 
バイ ル し て し まう こと も で きま す . ーー も 
Ei っ :- それ で は ,。 従来 の BASIO この 違い を 混 え な が ら . x- BASIC 3 
の プロ グラ ミン グ 法 を 説明 し ます . 





鈴 

















3.| X-BASIC の 設定 


d. ] ベーBA8SIC の 設 








X メ -BASIC は , 大 きく 分 け て 2 つの 部 分 か ら 構成 され て いま す . 1 つ は , ファ イル 人 入出 力 や テキ 
スト 画面 制御 , 演算 処理 な ど 必 要 最 小 限 の 機能 が 備わっ た 最も 基本 的 な 部 分 (BASIC.X)、 そ し て 
も う 1 つ は , グラ フィ ックス や オー ディ オ , マウ ス , カラ ー イ メー ジ ・ ユ ニッ ト な ど を 制御 する 関 
数 が は いっ て いる いく つか の 人 外部 関数 ファ イル (拡張 子 FNC) の 部 分 で す ,. この よう に , 必要 な 
部 分 だ け を 組み 込め る よう に な っ て いま すか ら , 自分 の 持っ て いな い 周 辺 装置 を 制御 する た め の 
関数 な ど は 取り は ず し て し まえ ば , メイ ン メ モリ の 節約 を は か る こと が で きま す . 

外部 関数 の 組込み は , BASIC.CNF と いう ファ イル 中 で 指定 し , X-BASIC の 起動 時 に 指定 され 
た 構成 で メモ リ 上 へ 読み 込ま れ ま す . この ファ イル に は , 外部 関数 ファ イル の 設定 の ほか に , フ 
リー エリ ア , 横 表 示 文 字数 。 ビー プ 音 の ON プ OFF, 予約 語 の 大 文字 小文字 表示 の 指定 を する 
こと が で きま す . また , あら か じ め 用 意 さ きれ て いる 外部 関数 の ほか に , 独自 の 外部 関数 を 作成 し 
て 組み 込む こと も 可能 で す . 

な お , この ファ イル で 設定 し た 項目 は , 起動 後に 変更 する こと が で きま せん の で , 構成 を 変更 
し た い 場 合 は 。 BASIC.CNEF の 内 容 を 書き な お し て X-BASIC を 再起 動 し な けれ ば な り ま せん . 

リス ト 3.1 で は ,。 フ リー エリ ア を 128K バイ ト , 起動 時 の 横 表示 文字 数 を 96 文字 ビープ 音 の 
発生 を ON, 予約 語 は 小文字 表示 扱い , 外部 関数 ファ イル (AUDIO.FNC,GRAPH.FNC, MOUSE. 
FNC, MUSIC.FNC, SPRITE.FNC, STICK.FNC) を 組み 込む こと を 意味 し て いま す . 





















































リス ト 品 . ] コン フィ ギュ レー ショ ン フ ァイル の 設定 


FREE = 128 
WIDTH = 936 
BEEP = ON 
CAPS = OFF 
FUNC = AUDIO 
FUNC = GRAPH 
FUNC = MOUSE 
FUNC = MUSIC 
FUNC = SPRITE 
FUNC = STICK 


こと で いう ラ ア リー エリ アア ラム エリ ア 、 称 八 。 症 列 エリア る 合わ 合 た 天 き さき で 。 発 
部 関数 で 使用 する 領域 (FM 音源 用 の トラ ッ ク バ ッ フ ァ な ど ) や 子 プ ロ セ ス 実 行 の た め の 領域 は 含 
まれ ませ ん . 

設定 が 完了 し た ら , X-BASIC を 起動 きせ て み ま し ょ う . Human68k の コマ ンド 待ち の 状態 か 
ら , 次 の よう に 入力 し ます . 
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3 章 X-BASIC プロ グラ ミン グ ガ イド 


A> BASIC 


この と き , オプ ショ ン を つけ る こと で ,。 さき ほど の コン フィ ギュ レー ショ ン フ ァイル と 同様 に 
設定 を 変更 する こと が で きま す . また , コン フィ ギュ レー ショ ン フ ァイル を いく つか 用 意 し て お 
き , その 名 前 を 指定 する こと で , 必要 に 応じ た X-BASIC の 動作 環境 で 起動 きせ る こと も で きま 
す . な お , この ファ イル 名 の 指定 が な い 場 合 は 。 BASIC.X の ある ディ レク トリ と 同じ ディ レク ト 
リ に ある BASIC.CNE^ を 参照 し ます . 

次 の 例 は ,、 フリ ー エ リア を 256K バイ ト , コン フィ ギュ レー ショ ン フ ァイル は ヾ USR.CNE^。 
横 表示 文字 数 は 64 文字 で 起動 し た 場合 で す . 















































A> BASIC プ F256 CUSR.CNF プ W64 


また , BASIC.X の ある ディ レク トリ に AUTORUN.BAS と いう ファ イル が あれ ば , 起動 時 に , 
そこ に 書か れ て いる 内 容 を 自動 的 に 実行 し ます . ちょ うど ,。 Human68k の AUTOEXEC.BAT 
ファ イル と 同じ 働き で す . 

X-BASIC を 終了 させ る 方 法 は 2 種類 あり ます . ダイ レク トモ ー ド か ら の 場合 は system 命令 
を , プロ グラ ム 中 か ら の 場合 は exit () 関数 を 使い ます . X-BASIC を 終了 させ な いで Human68k 
の コマ ンド を 実行 する 場合 は , ダイ レク トモ ー ド か ら ゞ /? に 続け て Human68k の コマ ンド を 書 
け ば OK で す . また , ~/ だ け 書 いた 場合 は 。 Human68k の コマ ンド 待ち に な り ま す が 。EXIT 
コマ ンド を 使え ば ふた た び X-BASIC に 戻る こと が で きま す . 























づ . つ X-BASIC の 己 つ の バー ジョ ン 








ぶ -BASIC に は ,。 2 つの バー ジョ ン が あり ます . 1 つ は 。Human68k の シス テム ディ スク に は 
いっ て いた バー ジョ ン 1.0。 も う 1 つ は C Compiler PRO-68k の パッ ケー ジ に は いっ て いた バー 
ジョ バン 2.0 で ず 、 

この 2 つの 相違 は , float 型 の デー タ の 内 部 表現 と FM 音源 の 内 部 処理 方 法 に あり ます . FM 音 
源 の 内 部 処理 方 法 の 違い は プロ グラ ミン グ 上 の 影 絡 は あり ませ ん が , float 型 の デー タ の 内 部 表現 
の 違い に は 気 を つけ な けれ ば な り ま せん . 

バー ジョ ン 1.0 で は , SHARP フォ ー マ ッ ト と 呼ば れる 独自 の 形式 で 内 部 操作 を し て いま し た 
が , バー ジョ ン 2.0 で は , 浮動 小数 点 演算 プロ セッ サ が 直接 扱え る IEEE フォ ー マ ッ ト に 変更 され 
て いま す . この た め 。, バ パー ジョン 1.0 の float 型 の デー タ を ファ イル に 保存 し て いる 場合 , バー ジョ 
ン 2.0 で 読み 込む と 正しい 値 を 得る こと が で きま せん . この 場合 は , floatllx と いう デバ イス ドラ 
イ バ を , Human68k 起動 時 に 組み 込ん で お く こ と で 解決 で きま す . 
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引 弓 





























3.3 X-BASIC の 基本 的 な 操作 


X-B ビ ASIC の 大 本 的 な 操作 





いよ いよ プロ グラ ミン グ を 始め る まえ に ,X-BASIC の 操作 方 法 を 学ん で お く こ と に し ます . 基 








本 的 に は これ まで の BASIC と 変わ りな い の で す が , その 特徴 を いか す 便 利 な 機能 も 用 意 き れ て 


いま す . 


づ .d.1 プロ グラ ム の 編集 























プロ グラ ム を 作成 し た り 編 集 し た りす る た め の 命 令 に は 。 表 3.1 の よう な も の が あり ます . 














auto [ く < 行 番号 >][, < 増分 >] 











行 番号 の 自動 発生 














! [ く コ マン ド >] 


Human68k の コマ ンド の 実行 





chdir で く ディ レク トリ >? 


カレ ント ディ レク トリ の 変更 





chdrv < く ド ライ ブ 名 >? 


カレ ント ドラ イブ の 変更 































































































clear cl. 変数 と スタ ッ ク の 初期 化 
cont @! プロ グラ ム の 実行 再開 ] 
delete [< 開始 行 >] [- [< 最終 行 >]] del 指定 され た 行 の 削除 
[Ifiles < デバ イス 名 >〉 < パス 名 >?] [fi デバ イス 上 の ファ イル 一 覧 表示 ] 
key list ーー ファ ンク ショ ン キ ー の 定義 内 容 の 表示 
kil 人 [ く < デバ イス 名 >] < ファ イル 名 >? ki. ファ イル の 削除 | 
[]list [ く < 開 始 行 >] [一 [< 最終 行 >]] [II. メモ リ 上 の プロ グラ ム の 表示 
load * く ファ イル 名 >? lo. 行 番号 の ある プロ グラ ム の ロー ド | 
load@^ く < ファ イル 名 >”[, < 行 番号 >] [, < 増分 >] | lo.@ 行 番号 の な い プ ログ ラム の ロー ド 
name “< 旧 フ ァイル 名 >?, < 新 フ ァイル 名 >? n8. ファ イル 名 の 変更 | 
new ーー メモ リ 上 に ある プロ グラ ム の 消去 
renum [< 新 行 番号 >] [, < 旧 行 番号 >] [, < 増分 >] | ren. 行 番号 の つけ 替え 
run [< 行 番号 > ] 際 メモ リ 上 の プロ グラ ム の 実行 | 
run [< デバ イス 名 >] < ファ イル 名 r ファ イル か ら プ ログ ラム を 読み 込ん で 実行 
SE ぐ デ 人 ア 3 の 5 
NE 生化 Re OSA 
[search バ < 検 索 文字 列 >? [Ilse. 文字 列 の 検索 
system SYS. Human68k また は 親 プ ロ セ ス に 戻る 
| width < 文字 数 > wW. テキ スト 画面 の 横 表示 字数 の 設定 (64. 96) | 
表 ヨ .1 プロ グラ ム の 編集 を する た め の コ マン ド 
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3 章 X-BASIC プロ グラ ミン グ ガ イド 





メモ リ 中 に ある プロ グラ ム の 表示 に は list 命令 を 使い ます . エ ラー が 起こ っ た り , プ ログ ラム を 
中 断 し た 直後 な ら ば , ^.” (ピリ オド ) で その 行 番号 を 表せ ます . また , func XX と いう 形 で 定 
義 さ れ て いる 関数 の 名 前 を 行 番号 の 代り に 指定 する こと も で きま す . 

renum 命令 で 行 番号 を つけ 替え ます が , プロ グラ ム 中 の goto 文 や gosub 文 , then, else に 続く 
飛び 先 を 表す 行 番号 は 変更 され ませ ん . ちょ っ と し た プロ グラ ム な ら 便 利 な 機能 で す が , で きる 
限り 行 番号 に 依存 し た プロ グラ ム を 書か な い に こ し た こと は あり ませ ん . 

また , X-BASIC に は 文字 列 を 検索 する 機能 も 用 意 さ れ て いま す . search 命令 を 使え ば , デバ ッ 
グ 時 な ど 変 数 を 探し た りす る 場合 に 便利 で し ょ う . Isearch 命令 は , 文字 列 の 見 つか っ た 行 を プリ 
ンタ に 出力 する こと も で きま す . 











づ .d. 己 ファ イル の 管理 


ファ イル の 読込 みや 保存 を は じ め , ファ イル 管理 を 行う た め の 命令 に は , 表 3.2 の よう な も の 
が あり ます . 


chdir く デ ィ レ クト リッ >? カレ ント ディ レク トリ の 変更 
chdrv < ドラ イブ 名 〉? カレ ント ドラ イブ の 変更 
[I]files いい < デバ イス 名 〉 < パス 名 >/] デバ イス 上 の ファ イル 一 覧 表示 
kil [< デバ イス 名 >〉>] < ファ イル 名 >〉? ファ イル の 削除 














load “< ファ イル 名 >? 行 番号 の ある プロ グラ ム の 読込 み 





load@` く < ファ イル 名 > [, < 行 番号 >] [, < 増分 >] 行 番号 の な い プ ログ ラム の 読込 み 
name “< 旧 フ ァイル 名 >?, < 新 フ ァイル 名 >? ファ イル 名 の 変更 
run [< デ バイ ス 名 〉] < ファ イル 名 >? ファ イル か ら プ ログ ラム を 読み 込ん て 実行 


save [@] [< デバ イス 名 >] < ファ イル 名 > [, < 行 番号 1> ] 
[ [< 行 番号 2>]] 











プロ グラ ム の 保存 








表 . 己 ファ イル 管理 の た め の 命 令 


files 命令 は カレ ント ディ レク トリ に ある ファ イル の 一 覧 を 表示 し ます . その 後 。 カー ソル を 上 
に 移動 させ , 目的 の ファ イル 名 の ある 行 で load, 1oad@, save, save@ と 書い て リタ ー ン キー を 押 
せ ば か ん た ん に ファ イル の 読込 みや 保存 を 行う こと が で きま す (画面 3.1). 

X-BASIC か ら も カレ ント ディ レク トリ や カレ ント ドラ イブ を 変更 し た い 場 合 が ある で し ょ 
う . その 場合 に は , chdir 命令 や chdrv 命令 を 使う こと が で きま す . 

プロ グラ ム を ファ イル に 保存 する 場合 , save 命令 を 使う 方 法 と save@ 命 令 を 使う 方 法 が あり 
ます 。 前 者 は , 通常 どおり 行 番号 を つけ て 保存 する の に 対し , 後者 は , 行 番号 を つけ ず に 保存 し 
ます . プロ グラ ム の 読込 み は , 保存 され て いる ファ イル の 形式 に 対応 し た も の を 使う の が 原則 で 
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3.3 X-BASIC の 基本 的 な 操作 


BRSIC for %58889 uersion 2.89 
攻 れ 1987 SHRRP/Hudson 
Ok 


kbutes free 


in 





画面 G.1 filles と load 


す . save 命令 で 保存 し た も の は load 命令 で , savee 命令 で 保存 し た も の は ,。 load@ 命令 で 読み 込 
む わ け で す . も し , save@ 命令 で 保存 し た ファ イル を load@ 命 令 で 読み 込ん で し まう と 。, 先頭 の 行 
か ら 順 に 等 間隔 で 行 番号 が つけ られ ます か ら ,。 プロ グラ ム 中 で 行 番号 に 依存 し た 記述 (た と えば 
goto。 gosub な ど ) が ある と , 正しく 実行 され な い プ ロ グラ ム に な っ て し まい ます . 

な お , BASTOC コン バー タ な ど を 使っ て C 言 語 に 変換 する 場合 は , save@ 命令 で 保存 し な けれ 
ば な り ま せん . また , 1oad@ 命令 を 使う こと き は , メモ リ 上 に プロ グラ ム が ある と 連結 され て し まい 
ます の で , 読み 込む まえ に new 命令 で メモ リ 上 の プロ グラ ム を 消去 し て お きま し ょ う . 

この よう に 行 番号 を 使わ な か いで プロ グラ ミン グ で きま す の で ,。 ED な どの テキ スト エディ タ を 
使っ て 編集 する こと が で きま す . た だ し , プロ グラ ム 中 に 改行 だ け の 行 が ある と , 読込 み 時 に バ * プ 
ログ ラム の 構造 が 異常 で す ” と いう エラ ー を 発生 し ます . 

また ,。 従来 の BASIC で は append 命令 を 使っ て プロ グラ ム の 連結 を 行い ま し た が 。X-BASIC 
で は 。 行 番号 を つけ な いり 形式 で 保存 きれ て いる プロ グラ ム を 1oad@ 命 令 で 連結 する こと が で き 
す ( 図 3.1)、 た だ し , すでに メモ リ 中 に ある プロ グラ ム の 最終 行 番号 よ り 大 きい 値 を 読込み 
始 行 番号 と し て 指定 し な けれ ば な り ま せん . 
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メモ リ 上 に ある プロ グラ ム 
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980 
990 





グ * sample 


ディ スク 中 に ある 行 番号 
の な い プ ログ ラム 


prog.bas 
ブ キ 













it char c 

5 str st 
print i」」 1 
end return(st) 


endfunc 






グ * sample 
110 int ij 


980 printi」」 
990 end 





メモ リ 上 の プロ グラ ム に 





prog.bas が 連結 され た 


1000 プ * 
1010 func str prog(c) 
1020 charc 

Str st 







return(st) 
endfunc 





紀 .1 ファ イル の マー ジ 


d.3.3 プロ グラ ム の 実行 制御 


プロ グラ ム の 実行 制御 を 行う た め の 命令 に は , 表 3.3 の よう な も の が あり ます . 


書 


レー 


Clear 


式 機 能 


func str prog(c) 


変数 と スタ ッ ク の 初期 化 





| Cont 














ブロ グラ ム の 実行 再開 








run [< 行 番号 > ] 





表 3.3 プロ グラ ム の 実行 制御 を 行う た め の 命 令 





これ まで , clear 命令 を 使っ て 変数 領域 の 大 きき さ を 











メモ リ 上 の プロ グラ ム の 実行 


load@ “prog.bas”, 1000 


設定 し て いま し た が , X-BASIC で は , 起動 


時 に コン フィ ギュ レー ショ ン フ ァイル に 書か れ て いる 値 (ある い は , 起動 時 の オプ ショ ン で 指定 


され た 値 ) で 設定 され て し まい ます . 
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も ちろ ん プロ グラ ム 中 で 変更 する こと も で きま せん . 





3.4 X-BASIC の 基礎 


3. ノ ノイ X-BASIC の 基礎 


X_-BASIC の 文法 は 。 BASIC と いう より は , C 言 語 ラ イク な 仕様 に な っ て いま す . な か で も 。 
次 の よう な 点 は C 言 語 と 非常 に 似 た 仕様 で も る と いえ る で し ょ う . 




















・ データ の 型 が C 言語 に 近い 型 (str 型 。 int 型 。 char 型 , float 型 ) で ある 
・ フ ァイル 入出 力 が 従来 の BASIC と 異な り C 言語 に 近い 方 法 で 扱え る こと 
・ サ ブル ー チ ン を ユー ザー 定義 関数 に で きる こと 





この よう な 仕様 に な っ て いる の は , 次 の 章 で 紹介 する CCompiler PRO-68k と いう パッ ケー ジ 
に は いっ て いる BASTOC コン バー タ で ,C 言語 の プロ グラ ム に 変換 する こと が 意図 され て いる 
か ら で す . 

BASIC し か 知ら な い 方 で も ,。 いつ の ま に か C 言 語 風 の プロ グラ ミン グ を 身 に つけ る こと が で 
きま すか ら , C 言 語 の 入門 用 の 言語 と も いえ る で し ょ う . も ちろ ん , X-BASIC イ ンタ ー プ リタ で 
手軽 に デバ ッ グ を 行い , さらに 実行 速度 を 上 げた いり 場合 に は ,C 言語 の プロ グラ ム に 変換 し て コン 
パイ ル す る と いう こと が で きる わけ で す . 























づ .4.1 変数 の 扱い 

X-BASIC の 変数 の 扱い は , これ まで の BASIC と は 多少 異な り , あ ら た な 考え か た が 導入 され 
て いま す , それ ら は , 構造 化 き され た プロ グラ ミン グ を し た り , BASTOC コン バー タ で C 言語 に 変 
換 し た りす る 場合 に , どう し て も 必要 に な る も の で す . それ で は , 最も 基本 的 な こと で ある 変数 
の 扱い に つい て ,。 見 て みる こと に し まし ょ う 。 





還 デー タ 型 
X_-BASIC の デー タ 型 に は 。 表 3.4 の よう な 4 つの 型 が 用 意 さ きれ て いま す . 

































X-BASIC で 使用 可能 な すべ て の 文字 が 使用 で きる 


字 * 万 || 弄り ] 
文字 列 型 (sr 型 ) 文字 列 の 長 さ は 255 文字 (255 バイ ト ) ま で 


























4 バイ ト 整 数 型 (int 型 ) 4 バイ ト (32 ビッ ト ) の 符号 つき 整数 
1 バイ ト 整 数 型 (char 型 ) 1 バイ ト (8 ビッ ト ) の 符号 な し 整数 
実数 型 (float 型 ) | 8 バイ ト (64 ビッ ト ) の 倍 精 度 実数 
ーー ニー ニー 
表 3.4 デー タ 型 

















これ ら の 変数 の 型 の 宣言 は 変数 を 使用 する 際 に 行う こと が 原則 で す . 型 の 宣言 が 行わ れず に 
使用 され た 変数 は , int 型 と みな され ます . また , str 型 の 変数 は 宣言 時 に 文字 列 の 最大 長 を 指定 
し な いと 自動 的 に 最大 長 が 32 文字 に 設定 され ます . こ の よう に 型 の 宣言 が 義務 づけ られ て いま す 
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か ら , 型 宣言 文字 (%, $, あれ /) を 変数 名 の 後ろ に つけ て 変数 の 型 を 表し た りす る 類 わ し さ が 
な く な り ま し た . 

また , 次 の よう に 書く こと で , 変数 の 型 宣言 と 同時 に , 変数 の 初期 化 (数 値 な ど を あら か じ め 
代入 する だ た だ を する と と も で きま ます. 














char a … 符号 な し 整数 型 の 変数 a を 宣言 する 
int b 三 1 … 符号 つき 整数 型 の 変数 b を 宣言 し 。 あら か じ め 1 を 代入 し て お く 
較 配列 変数 


X-BASIC で は , 配列 変数 の 宣言 と 初期 化 を 同時 に 行い ます . 配列 の 型 を 宣言 し な い 場 合 は int 
型 の 配列 と みな され ます . 添字 は 0 か ら 65,535 の 範囲 で 指定 し ます が , 配列 の 添字 が 0 か ら 始ま 
る こと に 注意 し て くだ さい . 配列 の 次 元 は 255 次 元 ま で と れ ま す が , X-BASIC の テキ スト 1 行 に 
は 255 文字 まで し か 書く こと が で きま せん の で , 255 次 元 の 配列 を 宣言 する こと は 事実 上 不可 能 
KG 

また 。, 従来 の BASIC で は DATA 文 を 使っ て プロ グラ ム 中 に 数 値 や 文字 列 な どの デー タ を 含め 
る こと が で きま し た が , X-BASIC で は 方 法 が 異な り , 配列 の 要素 と し て デー タ を 書い て お か な け 
れ ば な り ま せん . また , プロ グラ ム 中 で 配列 を 一 度 消去 し て あら た に 宣言 し な お す と いう よう な 
こと も で きま せん . 

リス ト 3.2 の 例 で は , str 型 の 配列 変数 da を 宣言 する と 同時 に , 月 と 曜日 と 天気 を 代入 し て い 
ます . 




















リス ト ご 配列 証言 と 初期 化 


1: dim str da(29) = { "January”, "February”, "March" 
2: "APFi17。 "May”, "June", 
3 PJuly"。 7August "7September”, 
4: *0ctober", "November”, "December”, 
5: "Monday", "Tuesday", "Wednesday" 
6: "Thursday", "Friday", "Saturday" 
7 "Sunday", "Fine', Cloudy” 
8: 
9: int i=g 
19: while i<6 
11: 。 print using "& ida(1D)j Ei+1 
12: endwhile 
13: print 
14: while i<12 
15: print using "% 8 ida(i)ji ii+1 
16: endwhile 
17: print 
18: while i<19 
19: print using "% 8ida(1) う ii+1 
29: endwhile 
21: print 
22: while i<21 
23: 。 print using "& 8ida(1D)j 1 
24: endwhile 
25: end 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー プ Oo 


3.4 X-BASIC の 基礎 


一 グロ ー バ ル 変 数 と ロー カル 変数 
メ -BASIC で は , グロ ー バ ル 変 数 と ロー カル 変数 と いう C 言語 の よう な 概念 が 導入 され て いま 


す . これ まで の BASIC の 変数 と 同じ 性 質 を 持つ の が グロ ー バ ル 変 数 と ! 





叶 ば れる も の で , プロ グラ 


ム 中 の どこ か ら で も 参照 する こと が で きま す . ロー カル 変数 は , func ベベ と いう 形 で 定義 され た 
関数 の な か で 宣言 され た 変数 で , その 関数 の な か で し か 参照 で きま せん し , 関数 の 処理 が 終了 す 


る と 同時 に 消滅 し ます . 
ロー カル 変数 の 名 前 は , グロ ー バ ル 変 数 の 名 前 と 同じ で な けれ ば , 他 の 関数 内 で 使わ れ て いる 
ロー カル 変数 と 同じ 名 前 で も か まい ませ ん . この よう な 2 種類 の 性 格 を 持つ 変数 が 用 意 さ きれ て い 


ます の で , 関数 内 部 の 変数 と 外部 の 変数 と を 独立 し た も の と し て 扱う こと が で きま す . 














リス ト 3.3 で は , 関数 Ishift () と rshift () の 両方 で 変数 st が 宣言 され て いま す が , lshift () 
内 の st は lshift () が 呼ば れん た と き に だ け 現 れ , rshift () 内 の st は rshift () が 呼ば れん た と き に 
だ け 現 れ ま す . 


リス ト . づ ロー カル 変数 


1: str sa,sb 

2: sa = lshift("abcdef") 
3: sb = rshift(sa) 

4: print "abcdef” 

5: 
6 
7 
8 


print sa: /* "bcdef” 
・ print sb: /* “bcde" 
・ end 


: /* 左 へ 1 文字 シフ ト 
9: 
19: 
0 
12: 
村 
14: 
15: 
16: 
17: 
18: 
19: 


func str lshift(slistr) 

str st 
st =right$(sl,strlen(sl)-1) 
return(st) 

endfunc 

/* 右 へ 1 文字 シフ ト 

func str rshift(sristr) 

str st 
st = left$(sr,strlen(sr)-1) 
return(st) 

endfunc 


弄 デー タ の 型 変換 
異な る 型 ど うし で 代入 や 演算 が 行わ れる 場合 に 自動 的 に 型 の 変換 が 行わ ん ます. 


た と えば , float 型 の 数 値 を int 型 の 変数 へ 代入 する よう な 場合 は , 代入 2 








モ の 型 。 つ まり この 場 


合 は int 型 に 変換 きれ ます . この よう な 型 変換 が 行わ れる 場合 は , 次 の よう な 点 に 注意 し な けれ ば 
な り ま せん . 


・ 論 理 演算 の 場合 は , 扱わ れる 数 値 は すべ て int 型 に 変換 きれ た 後に 演算 


・ 変 換 対象 の 値 が 変換 し た い 型 の 値 の 範囲 を 超え る と エラ ー に な る 
・ 実 数 が 整数 に 変換 され る 場合 は , 小数 点 以下 は 切り 捨て られ る 



































RS9 
へ 
ゞ 





中 


int 型 で 得 ら れる 





| 
# 
Ri 
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また , int 型 と float 型 ど うし の 演算 で は , 精度 の 低い 型 か ら 精 度 の 高い 型 へ 変換 され て 演算 が 
行わ れ ま す (リス ト 3.4). 





リス ト . 型 交換 


cn な で SF 一 


It 二 3 ド ご 』 8 詩 沿 
float f = 3.14159#,g 
= ミコ + ォ オイ 
ミュ + ォ f 
pTint j,g 


一 シス テム 変数 

シス テム 変数 は 予約 変数 と も 呼ば れ て いた も の で , フリ ー エ リア の 大 き さ や 日 付 な ど が は いっ 
て いる 変数 で す ( 表 3.5)、 この うち , date$, time$s$ を の ぞ き , ユー ザー は 読み 出す こと し か で き 
ませ ん . 











DOS 現在 の カー ソル 位置 の X 座標 (int 型 ) 
csrlin 現在 の カー ソル 位置 の Y 座標 (int 型 ) 





一 番 最近 発生 し た エラ ー の エラ ー 番 号 | 
error of の と きのみ 有効 な 値 を 持つ 


free メモ リ の フリ ー エ リア の 大 き さ (int 型 ) 


errnO 





























| NeS キー 入力 が ある まで 待ち , 入力 され た 1 文字 
2 を 返す (st 型 ) 
inkey$(O) | キー 入力 が ある か を 調べ て , あれ ば 1 文字 反 
す . な けれ ば 0 を 返す (st 型 ) 
date$ 現在 の 日 付 (str 型 ) 代入 可 
day$ 今日 の 曜日 (str 型 ) 
time$ 現在 の 時 刻 (str 型 ) 代入 可 


表 コ . ロ シス テム 変数 


リス ト 5 gates, dayB, time 中 の 使用 例 


9: 
19: 
1 
2 は 
3 
14: 
5: 
16: 


/* 日 付 と 時 間 を 設定 する 


1 
2: str tmp 
3 
4 
5 


print “現在 設定 され て いる 日 付 と 時 間 は "iprint_date():print " で す ”" 


・ PrTint 
・ print "新しい 日 付 を 入力 し て 下さ い (変更 し な い 叶 は リ ター ン キ ー を 抑 し て 


下さ い ) (YY/MM/DD) ": 


6: linput tmp 
7 < 
8: print "新しい 時 間 を 入力 し て 下さ い (変更 し な い 時 は リタ ー ン キー を 押し て 


if tmp <> "” then date$=tmp 


下さ きい) (HH:MM:SS) ": 


linput tmp 

if tmp <> ”。 then time$=tmp 

print 

print “設定 され た 日 付 と 時 間 は "ji:print_date():print ” で す ”" 
end 

func print_date() 


print date$i:" ("iday$j7) "itime$: 
endfunc 


ーーーーーーーーーーーーーーーーーーーーーーーーーー 一 ーー 
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3.4 X-BASIC の 基礎 


.4. 演算 
演算 に 関す る 限り ,。 これ まで の BASIC と は , さ ほど 大 き な 変 更 は あり ませ ん . し か し , いく つ 
か 追加 され た 機能 ちあ り ま す の で , ここ で は それ ら を 中 心 に 解説 する こと に し まし ょ う . 











一 算術 演算 

X-BASIC に は ビッ ト 単 位 で 右左 に ずら すこ と が で きる シフ ト 演 算 が 用 意 さ れ て いま す . た と 
えば “整数 を 2 倍 す る ” と いう 演算 を 2 進 表現 で 見 る と , 1 桁 左 に ずれ て いる こと が わか る で し ょ 
う . 逆 に ^2 で 割る "と いう 演算 を 2 進 表現 で 見 る と , 1 桁 右 に ずれ る こと が わか り ま す ( 図 3.2). 


























| 2 | 10 進数 
ilololi|o|o [9] = 2oo 


w、、 NNN へ NNN へ や へ 、 舎 「*2」 


olililololilo[6] =ioo 
で へ へ へ へ へ へ へ へ 、。 人 『s2」 
9lolililololile|= so 


SATATATA TA TA AN く 72」 


lolololilllolo|i|=25 


昌 1 
へ へ へ ふふふ へ へ へ へ ます 7 
Lololololililolo] = ュ is 


左 シ フト の 場合 は 右端 に 0 が , 
右 シ フト の 場合 は 左端 に 0 が 
は いる 


図 コ . 己 進数 で 見 る 「* 」, 「/」 


これ か ら わ か る よう に , 2 倍 , 4 倍 , 8 倍 な ど は 左 シフ ト (shl) 演算 子 で , 1/2,1/4。 1/8 な ど 
は 右 シ フト (shr) 演算 子 で 書き 換え る こと が で きま す . た だ し , 最上 位 の ビッ ト が 1 の と き の 左 
シフ ト 演 算 と , 最 下 位 ビ ッ ト が 1 の と き (奇数 の と き ) の 右 シ フト 演算 で は 正しい 値 を 得る こと 
は で きま せん . 

演算 子 の 種類 を 表 3.6 に 示し ます が , 演算 の 優先 順位 は 表 の 上 へ いく ほど 高く な っ て いる こと 
に 注意 し て くだ さい . 






























































演算 子 演 算 書 式 

マイ ナス 符号 ーX 

ネ ※。 ブ 乗算 , 除算 X * y,。 X ノ y 

\, mod | 整数 の 除算 , 剰余 | x\y, xmody 

十 , 一 加算 , 減算 x 二 y,。 xーy 

shr 右 シ フト | Xshry (。 C 言語 風 に 表す と x> >y 
shi 左 光 プ ド | xshly (…… / x く ぐ y) 











表 3.B 算術 演算 子 


3 
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男 関係 演算 
関係 演算 は 2 つの 数 値 (また は 2 つの 文字 列 ) を 比較 し , 等 し けれ ば を 真 , 異な っ て いれ ば 信 


を 返す 演算 で す . X-BASIC で は 真 を 一 1, 偽 を 0 で 表し て いま す ( 表 3.7). 

こう し た 演算 は 条件 分 岐 の 際 の 判断 に 利用 され る こと が 多い の で す が , これ 以外 で も リス ト 3. 
6 の よう な 使い か た が で きる で し ょ う . この 例 で は , 1 か ら 30 まで の 整数 を 順に 3 で 割り 。 割り 
切れ た 場合 だ け (3 の 倍数 ) の 数 値 を 表示 する も の で す . 









































演算 子 内 容 書 式 
等 し い xy 
< 等 し く な い x く >y 
く | 小さ い Xx く y 
> 大 きい X>y 

| < く ー | 小さ いか 等 し い 2 る = | 
レー 大 きい か 等 し い x> =y 


表 . フ 関係 演算 子 


リス ト 日 関係 算 子 の 使用 例 


1: int i 

2: for 1 = 1 to 39 

33 jif (ji mod 3) = then print ji 
4: next 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーTTTTTTTTTTTTー 


瑞 論理 演算 
論理 演算 は 真 と 倫 の 2 つの 値 で 行う 演算 で す . 複数 の 条件 を 判断 する と き や ビ ッ ト 演 算 , ブー 
ル 演 算 を 行う と き に 使用 し ます . ブー ル 演 算 と は , 真 (0 以外 ) か 偽 (0) か を 扱う 演算 で す ( 表 


3.8) . 





not( 否 定 ) and( 論 理 積 ) or( 論 理 和 ) xor( 排 他 的 論理 和 ) 


X noOt x y x and y X OrY y 
1 0 1 





1 
0 1 0 
] 
0 


0 
0 
0 








表 . 日 論理 演算 子 


本 オ 4 


3.4 X-BASIC の 鞍 浴 


一 関数 

関数 と は , 与え られ た 値 に 対し て , あら か じ め 定 義 S さ れ て いる 処理 を 行い その 結果 を 返す も 
の を いい ます . これ まで の BASIC で は , DEF FN を 使っ て ユー ザー 関数 を 定義 で きま し た が , 
X-BASIC で は 演算 だ け に 限ら ちず, サブ ルー チン を 関数 と し て 扱う こと が で きる よう に な っ て い 
ます . 

た と えば 次 の よう な 関数 plus を 考え て み ま し ょ う . 




















func plus (a, Db) 
return (a 十 b) 


endfunc 


これ は , a と b と いう 2 つの 値 を 与え を る と , その 和 を 返す 関数 で す . この plus と いう 関数 が 定 
義 さ れ て いる と , 


answer 三 plus (1, 2) 


と いう よう に 関数 名 と 引数 を 書く こと で 演算 を 行え を ます . 
関数 の 定義 , 利用 の 方 法 に つい て は , 3.6 節 で 詳し く 述 べ る こと に し ます . 


づ .4. ゴ ステ ー ト メン ト 


X-BASIC に は 表 3.9 の よう な ステ ー ト メン ト が 用 意 さ きれ て いま す . ステ ー ト メン ト と は プロ 
グラ ム を 記述 する た め の 予 約 語 で 。 プ ログ ラム モー ド か ら 使 うこ と が 原則 で す が , ダイ レク トモ ー 
ド で 実行 で きる も の も あり ます . 

ステ ー ト メン ト の 書き か た は これ まで の BASIC と 同じ で , *・? を 使っ た マル チ ス テー トメ ン 
ト も 可能 で す . 









ビー プ 音 を 鳴ら す 
cls = テキ スト 画面 を クリ ア す る 
color < 属性 > col. テキ スト 画面 の 文字 の 属性 を 設定 する 


color [属性 0, 4. 8.12 の カラ ー コ ー ド , 
属性 1, 5, 9, 13 の カラ ー コ ー ド , 
属性 2, 6, 10, 14 の カラ ー コ ー ド , 
属性 3 7, 11, 15 の カラ ー コ ー ド ] 


beep 

















| col テキ スト の パレ ッ ト の 色 を 変更 する 





console < スク ロー ル 開 始 行 >, く スク ロー ル 幅 >, 


テキ スト 画面 の スク ロー ル エ リア を 朗 定 
< ファン クション キ ー 表 示 > - 


COnS. < ファンクション キー 表示 > は 0 の と 
ず , 1 の と き は 表示 する 
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プロ グラ ム を 終了 する . プロ グラ ム 内 に いく つ 
で も 置け る 





errOor On ログ error off 


error on で , 外部 関数 で エラ ー が 発生 し た と き に 
エラ ー メ ッ セ ー ジ を 表示 し て 実行 を 停止 する モ 
ー ド に な る . error off に する と エラ ー メ ッ セ ー 
ジ を 出さ ず に 次 の ステ ー ト メン ト に 実行 が 移る 
(error off は プロ グラ ム 実 行 中 の み 有 効 ) 

error off 時 に エラ ー が 発生 し た 場合 . エラ ー の 
番号 が シス テム 変数 errno に 格納 され る 








exit() 


X-BASIC 上 で オー プン され た すべ て の ファ イル 
を クロ ー ズ し , 外部 関数 の 終了 処理 を し た 後 , 
親 プ ロ セ ス に 戻る 





input [いく プロ ンプ ト 文 >?。 (また は :) ] 
< 変数 名 > [, < 変数 名 >..… … . . ] 


キー ボー ド か ら 入 力 さ れ た デー タ を 指定 し た 変 
数 に 代入 する . プロ ンプ ト 文 と 変数 名 の 区 切り 
と し て セミ コロ ン を 使用 し た 場合 ,、 プロ ンプ ト 
文 の 後に 疑問 符 が 表示 され る . カン マ を 使っ た 
場合 , プロンプト 文 の 後に 疑問 符 は 出 な い . str 
型 の 場合 , 宣言 され て いる 文字 変数 の 最大 長 ( 宮 
言 さ れ て いな い 場 合 は 32 文字 ) を 超え て は 代入 
され な い 





key < ファ ンク ショ ン キ ー 番 号 >, < 文字 列 > 


ファ ンク ショ ン キ ー の 内 容 を 定義 する 





linput [^ く プロ ンプ ト 文 >”:] < 文字 列 変 数 > 


指定 され た 文字 列 変数 に キー ボー ド か ら 入 力 さ 

れ た 文字 列 を 代入 する . カ ンマ や 引用 符 な ども 入 
力 で きる . プロ ンプ ト 文 の 後に 疑問 符 は 出 な い . 
文字 変数 に 入力 で きる 最大 文字 数 は , 宣言 され 
て いる 文字 変数 の 最大 長 . 宣言 され て いな い 場 
合 は 32 文字 を 超え て は 代入 され な い 





| locate <X 座標 >, <Y 座標 > 





カー ソル を テキ スト 画面 上 の 指定 され た 座標 へ 
移動 する . < カー ソル スイ ッ チ > は プロ グラ ム 中 























[, < カー ソル スイ ッ チ >] し の み で 有効 で 1 で , カー ソル を 表示 , 0 で 表示 し 
な い 
[] テキ スト 画面 に 文字 列 や 数 値 を 表示 する . 複数 
[I]print [using < 書式 制御 文字 列 >] [< 式 > .…] Me の デー タ を 表示 する 場合 , 区 切り と し て カン マ 
また は ? 
4 と セミ コロ ン が 使用 で きる 
る * で で 従来 の REM 文 に あたる も の で , 注釈 を 入れ る た 
/* [< 注釈 文 ] NAO 
screen < 表示 画面 サイ ズ >, < 実 画 面 お よび 色 モ ー 
ド >, <High/Low Res>, SC. グラ フィ ッ ク 画 面 の モー ド を 再 設 定 する 


< グラ フィ ッ ク 画 面 の 表示 ON/OFF> 





stop 














プロ グラ ム の 実行 を 中 断 す る 


表 . ヨ ステ ー ト メン ト 
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3.5 X-BASIC の 制御 構造 


3. 口 X-BABIO の 制御 構造 


いく ら 。 た くさ ん の 関数 を 知っ て いて も , プロ グラ ム 全 体 の 流れ を 決め る 制御 構造 に つい て 知 
ら な けれ ば プロ グラ ム を 書く こと は で きま せん . 関数 と 制御 構造 と は , ちょ うど 車 の 両輪 に た と 
えら 4C る 6 で じ よ う 。 

X-BASIC で は , これ まで の BASIC に は な か っ た 制御 構造 が 導入 きれ て いま す の で , より 見 通 
し の よい プロ グラ ム を 書け る よう に な っ て いま す . これ か ら 紹 介する 制御 構造 を マス ター すれ ば , 
いよ いよ 又 -BASIC で プロ グラ ム を 書き 始め る こと が で きる よう に な り ま す . 















































づ .5.1 制御 構造 


すでに お な じみ の ithen-else や ,。for--next。while--endwhile。 repeat--until な ど を 制御 
構造 と 呼ん で いま す . X-BASIC で は , これ ら の 制御 構造 に 加え , C 言語 に 見 られ る switch-case 
endswitch が 追加 され て いま す ( 表 3.10). また , 下 … や while な ど で は “2? で くく る こと 
で 複数 行 に わた っ た 処理 内 容 を 書く こと が で きる よう に な っ て いま す . 

それ で は , 条件 分 岐 と 繰返し (ルー プ ) と いう 2 つの グル ー プ に 分 け て 解 応 を する こと に し ま 








レ 直 :。 


最も 内 側 の switch て endswitch, while て end- 
while, for->next, repeat->until 文 の な か か ら 強 





制 的 に 抜け 出す 





現在 の fornext, while て endwhile, repeat 























GeOMMue until の ルー プ を 強制 的 に 再開 する 
3 。 3 指定 され た 回 数 だ け 文 を 繰り 返す . 変数 は ルー 
型 変数 = ! 終 0 
for 2 < 初期 値 > to < 最終 値 > プ が 1 回 まわ る ご と に +1 され る 
ah 従来 の for 文 に あっ た び ヾ step” は な く , 変数 の 変 
化 は 1 に 固定 され て いる 
func [< 戻り 値 の 型 >] < 関数 名 > ([< 引 数 > [: < 引数 の 型 >] 
5 ]) 
く 関 数 の 内 容 > 関数 を 定義 する 
[return(< 数 値 文 字 ノ 変数 名 >) ] | 
endfunc 
GGSUBG6 祖 本 訪 2 Shetui | 指定 され た 行 番 号 か ら 始ま る サブ ルー チン を 呼 
び 出 す 
goto 行 番号 指定 し た 行 に 実行 を 移す 
if < 条件 > then < 文 1 条件 が 成り 立っ た 場合 < 文 1> を 実行 し 。 成り 立 





[else < 文 2>] | た な い 場 合 < 文 2> を 実行 する 
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repeat 
< 文 > 条件 が 成り 立つ まで < 文 > を 実行 する 
until < 条件 > 
switch < 式 0> 
case < 式 1> 
< 文 1> 
case < 式 2> < 式 1 て < 式 n> まで の うち , < 式 0> と 一 致す る 
< 文 2> 値 を も つ case の < 文 > を 実行 する . 一 致す る も 
: の が な い 場 合 は , default の 後 の < 文 D> が 実行 
case < 式 n> され る 
< 文 n> 
default < 文 D> 
endswitch 
while < 条件 > 
< 文 > 条件 が 成り 立つ 間 < 文 > を 実行 する 
endwhile 






表 3.10 制御 構造 


較 朱 件 分 岐 

変数 の 内 容 や 計算 結果 に よっ て , それ に 応じ た 先 へ 分 岐 き せる こと を 条件 分 岐 と 呼び ます . 2 方 
向 の 条件 分 岐 を 行う 中 then--else, そし て , 複数 方 向 へ の 条件 分 岐 を 行う switch--endswitch が 
あり ます . 


げ ーthen 一 elS@ 

通常 。 関係 演算 子 を 使っ て 条件 を 判断 し ます が , さら に 論理 演算 子 を 用 いて 複数 の 条件 を 判断 
で きま す . then や else の 処理 は () を 使っ て C 言語 風 に 複数 行 に わた る ブロ ッ ク を 構成 で きま す 
(リス ト 3.7). 





リス ト 3.Z フ if-then-mlse 


1: char c= 

2: c = asc(inkey$) 

3: jfc>= a” and c <='z′ then { 

4: Cc 一 7a すす 「A" 

5: print chr$(c): 

6: } else if c >= AP and c <='2′ then 5 
7 6 = 。 は 、182 

8 print chr$(c): 

9 

19 


: ) else { 
1 color 1 
1 紀 print "Sono ta no Moji" 
2 color 3 
193 print chr$(c) 
14: } 


ーーーーーーーーーーーーーーーーーーーーーー 一 ーー テテ テ OO 


3.5 X-BASIC の 制御 樹 造 


Switoh 一 Coase 一 ndSwitoh 

case の 式 に は 整数 と 文字 定数 の み が は いり ます . 従来 の BASIC の ongoto (gosub) は X え 
_-BASIC で は switch 文 を 使っ て 記述 し ます 。. し か し , on com goto, on key (n) goto な どの 
よう に 割込み を 使っ た 分 岐 は で きま せん . リス ト 3.8 で は , 入力 され た 数 値 に よっ て , 6 方 向 へ の 
分 岐 を し て いま す . 








リス ト 3. switch-case-endswitch 


4 nt 1 

2: input "Please Type Here What your favorite Number " 

3: if i<!then { 

4: 。 print "You are DEVILII" 

5: end 

6: ) else 【 

7: 。 switch ji 

8: case : print "Xerox": break 

93 case 1: print "Data General One": break 

19: case 2: print "Cray-2": break 

11: case 3: print "Sun-3”: break 

12: case 4: print "SX-4": break 

13: case 5: print "BASIC MASTER Level3 Mark5": break 

14: default: print "SHARP X”"j:icolor 7: print "68000": color 
3: break 

15: endswitch 

16: 

17: end 


ーー 


較 ルー プ 
同じ 処理 を 何 回 も 実行 する と き に は ルー プ を 使い ます . ルー プ に は 単純 ルー プ の for--next, 条 
件 ルー プ の while>endwhile。repeat--until が あり ます . 





for 一 next 

初期 値 か ら 最終 値 ま で を 1 ずつ 増やし な が ら 繰 り 返 し ます . 初期 値 が 最終 値 よ り 大 きい 場合 は 
実行 され ませ ん . リス ト 3.9 の 例 で は , 変数 i と 変数 j を 1 から 9 まで 1 ずつ 増加 させ な が ら ' 九 
九 の 表 ” を 表示 する も の で す . 

















リス ト 8. for-next 


が Fin 坂本 

2: for i=1to9 

3: forj=1to9 

引 3 print using ” 封 i* お ) 
5 next 

6 print 

7: next 


ーー ツーーーーーーーーーー…ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー ーー ツー ーーーーー ヤ ーーーーーーー 


縛 
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従来 の BASIC と 最も 異な る の は , “step? に よる 増分 の 指定 が で き な い 点 で す . 増分 を 十 1 以外 

の 値 に し た い 場 合 は , for--next で 増加 させ る 変数 は 単なる ルー プ カ ウ ンタ と し て 利用 し , 目的 の 
増加 を する 変数 を 別に 用 意 す る こと に な り ま す . リス ト 3.10 で は , 0.1 ずつ の 増加 を させ る た め , 
ルー プ カ ウ ンタ の 値 ( 変 数 1) に 0.1 を 掛け て いま す . また , 増分 を ー1 に する た め に ,。11 か ら ル ー 
プ カ ウ ンタ の 値 (変数 :) を 引い て いま す . 


























リス ト .1 増分 の 変更 


1: int i,j 

2: float x,d = 9.1# 
3: /* 増分 を 4.1 に する 
4: for i=] to 19 
5: X =d*j 

6 print %: 

7: next 

8: print 

9: /* 増分 を -1 に する 
19: for ji = 1 to 19 
11: J= 11 - ji 

ボ 25 print jj 

13: next 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー--ーmーーーーーーーーーTTTTTTTTTTTTTTTT 


while 一 endwhile 

条件 判断 は 文 の 実行 前 に 行わ れる の で ,。 条件 に よっ て は 1 回 も 文 が 実行 され な い 場 合 が あり ま 
す . 下 文 と 同様 に 論理 演算 子 を 用 いて 複数 の 条件 を 判断 で きま す . リス ト 3.11 で は 。 ア ルフ ァ 
ベッ ト の a か ら z まで 。 次 に z か ら a まで 表示 し て 終了 し ます . 表示 する 文字 コー ド が a よ り 大 
きい (bz) 間 は ルー プ す る と いう し くみ に な っ て いま す . 











リス ト .1 1] while-enawhile 


1: int d=1 。 

2: char Alph = 'a"' 

3: while Alph >= 'a/ 

4 print chr$(Alph): 

5: if Alph = "z” then d = -1 
6: Alph = Alph+d 

7: endwhile 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー プ Oo 


「BDat-ーunil 

条件 判断 は , until で 判断 され ます の で , 少な く と も 1 回 は 文 が 実行 きれ ます 。 if 文 と 同様 に 論 
演算 子 を 用 いて 複数 の 条件 を 判断 で きま す . リス ト 3.12 で は , 5 回 ルー プ が あっ た 場合 か ,。 あ 
る い は 1 回 で も YES の 答え が あっ た 場合 に ルー プ か ら 抜 ける プロ グラ ム で す . 








だ 三 
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リス ト 紀 .1 repeat_-unti| 


1: dim str sports(4) = 【 "Basebal1", "Swimming","Tennis”,"FootBall"。 "SkiP 
2: str s 

3: int j」=9,Yes= 

4: repeat 

6 print "Do you like "jsports(i)i:linput "2(Y/N) "js 
6: if s[ 明 = 'Y′ or s[9] = 'y′ then Yes = 1 

7 1 = ミュ 1 

6: until ij>=5or Yes = 1 

9: if Yes = then 5 

19: print "Poor boy!" 

11: )else 5 

12: print "You like "jsports(i-1)j7!" 

19: 


3.5 X-BASIC の 制御 構造 


ーーーーーーーーーーーーーーーーーーーーーーー 一 ーー 


また , この repeat^-until と while--endwhile は 互い に 書き 換え る こと が で きま す . リス ト 3. 


13 は , リス ト 3.12 の プロ グラ ム を while-endwhile で 書い た も の で す . 


リス ト .1 ヨ repeat_-untii = whileendwhile 


1: dim str sports(4) = { "Basebal1", "Swimming, "Tennis", 7FootBal17, "SKIi" 


str s 

int j」= 凶 ,Yes = 

while ji<5 and Yes <> 1 
print "Do you like "isports(i)i:linput "9(Y/N) "!s 
if s[9J ="Y or s[9] = ythen Yes = 1 
1 =j+ 1 

endwhile 

if Yes = then 5 
print "Poor boy!" 

11: jelse { 

電 3 print "You like "isports(i-1)j71" 

13: 


や So ぐ 〇 ぐ ど - コ の の な の oh 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーOOOOoOoOoOooo 


Dreak 








現在 実行 され て いる 最も 内 側 の 制御 構造 か ら 抜け 出し ます .break が 実行 され る と , 制御 構造 内 

















の break 以降 の 文 は 無視 され , 現在 の 制御 構造 の 次 の 文 か ら 実 行 され ます . 
1 と いう 演算 の 結果 が 1000 を 超え た 時 点 で ルー プ を 抜け ます . 








リス ト 9.1 イ break の 使用 例 


1 atis = 1 

2: for i=2to19 

3: Ss =s※*j 

4 if s > 1 角 then break 
5: next 

6: print ji,s 


リス ト 3.14 は 。s ま * 


3 章 X-BASIC プロ グラ ミン グ ガ イド 


COTtinu@ 

continue が 実行 され る と , 現在 実行 し て いる ルー プ の continue 以降 の 命令 は 無視 され て 次 
の ルー プ が 実行 きれ ます . リス ト 3.15 で は ,。 0 か ら 20 まで の うち , 3 で 割っ て 余り の な い (3 の 
倍数 ) 場合 の み , 次 の 行 の print 文 を 実行 せ ず に , i を 十 1 し て 次 回 の ルー プ に は いり ます . 








回 














リス ト .1 叫 continue 使っ た ブロ グラ ム 


im も -j 

2: for iji=to 2 

3: if (ji mod 3) = then continue 
4・ print ji 

5: next 





画 その 他 

従来 の BASIC で よく 使わ れ て いた gosubreturn, goto も 用 意 さ れ て いま す . し か し , 飛び 先 
と し て ラベ ル を 使え な か っ た り , renum で 行 番号 の つけ 替え を し て も , プロ グラ ム 中 の 飛び 先 の 
行 番号 は つけ 替え て くれ な か っ た り と , 百害 あっ て 一 利 な し , と いう 仕様 で す . で すか ら 。 これ 
まで goto 中 毒 に な っ て いる 方 は , 一 日 も 早く if や while な ど を 使っ た プロ グラ ミン グ ス タ イ ル 
に 移行 すべ き で す . 











づ .5. 構造 化 プ ログ ラミ ング と 抽象 化 

X-BASIC で は 従来 の 制御 文 に 加え , 繰返し や 選択 な どの プロ グラ ム の 制御 構造 を より 直接 的 
に 表現 する こと が で きる 構造 化 制 御 文 が 追加 され て いま す . 構造 化 制 御 文 を 用 いる と , 従来 
BASIC で 多用 され て いた 行 番号 を 駆逐 する こと が で き , また , 非常 に 読み や すい プロ グラ ム に す 
る こと が で きま す . ここ で は , 構造 化 制御 文 を 用 いる 構造 化 プ ログ ラミ ング を 紹介 し ます . 








一 プロ グラ ム の 構造 化 

プロ グラ ム 中 で は , その 目的 に 応じ て 複雑 に 制御 の 受け 渡し が 行わ れ て いま す . 従来 の BASIC 
の プロ グラ ム で は , 中 と goto を 使っ て 制御 構造 を 作っ て いま す が , その 用 途 を 見 る と 繰返し 構造 
と 選択 構造 を 作る た め に 使わ れ て いる の が わか り ま す . 

か ん た ん な プロ グラ ム な ら そ の 使用 目的 が わか り ま す が , 複 林 な プロ グラ ム で は よく 読ま な い 
と , その goto が 繰返し 構造 を 作る た め の も の か , 選択 構造 を 作る た め の も の か が 判別 つき ませ 
ん . - そ れ な ら ば , 繰返し 構造 と 選択 構造 を 直接 表現 で きる 構文 を 用 意 す れ ば , も っ と 読み や すい 
プロ グラ ム に な る と 考え られ ます . 

この よう に プロ グラ ム の 制御 構造 を 直接 表現 で きる 制御 文 の み を 用 いた プロ グラ ム は , 構造 化 
され た プロ グラ ム と 呼ば れん ます . また , その た め の プ ログ ラミ ング 技法 を 構造 化 プ ログ ラミ ング 


































































































』 ブ ク 
































3.5 X-BASIC の 制御 構造 


(structured programming) と いい ます . X-BASIC で は , while--endwhile, repeat--until な ど 
で 繰返し 構造 を , then->else-> や switch--case--endswitch で 選択 構造 を 表現 する こと が で 
きま すか ら , まっ た く goto を 使用 し な いで プロ グラ ム を 書く こと が で きま す . 


一 プロ グラ ム の 抽象 化 

構造 化 に よっ て プロ グラ ム の 局所 的 な 読み や すさ は 向上 し ます が , 大 き な プ ログ ラム に な る と 
制御 構造 の 入れ 子 が どん どん 深く な っ て 読み に くく な り ま す . そこ で 大 き な プ ログ ラム を いく つ 
か の 部 分 に 分 割 す る こと て 制御 構造 の 単純 化 を は か る こと を 考え ます . プロ グラ ム を 分 割 す る と 
き に は , 意味 の ある 処理 単位 で 分 割 し な いと , 分 割 さ れ た 部 分 だ け を 見 て も 理解 で き な い よう に 
な っ て し まい , や は り 読 み に く く な り ま す . 

この よう に プロ グラ ム を 意味 の ある 小 部 分 , すなわち 手続 き に 分 割 す る こと を 手続 き に よる 抽 
象 化 (procedure abstraction) と いい ます . 手続 き 抽 象 を 用 いる と プロ グラ ム で 頻繁 に 用 いら れ 
る 処理 を 手続 き と し て まとめ る こと に より , 記述 の 簡略 化 を は か る こと も で きま す 。 従来 の 
BASIC の サブ ルー チン は 後者 の 目的 で 用 いら れる こと が 多い の で す が , 手続 き 抽 象 で は 処理 手 
続き の 共有 化 は あく まで も 副作用 で あり , その 主 目的 は まさ に 抽象 化 そ の も の に あり ます . 

従来 の BASIC の サブ ルー チン で は 引数 を 明示 的 に 渡す こと が で き な い た め , 部 分 的 に 違う 処 
理 を する 手続 き を サブ ルー チン に する に は グロ ー バ ル 変 数 を 用 いて 間接 的 に 引数 を 渡す ほか な 
く , その た め 変 数 名 を 間違え る な どの 問題 が 生じ る こと が あり まし た . また , サブ ルー チン を そ 
の 開始 行 番号 で 表し て いた た め gosub だ け で は どん な 処理 を 呼出 し て いる の か わか ら な いと い 
う 問 題 点 も あり , 抽象 化 を 行う と か えっ て 読み に くく な る こと も あり まし た . 

X-BASIC で は 関数 を 作り 出す fanc--endfunc に よっ て 明示 的 に 引数 を 表現 で きる 完全 な 手続 
き の 抽 象 化 を 行う こと が で きま す . また , 関数 呼出 し を 行 番号 で は な く 関 数 名 で 行う こと が で き 
ます か ら 各 関数 に 適切 な 名 前 を つけ る と 呼出 し 側 を 見 る だ け で ある 程度 の 意味 を 読み 取る こと が 
で きま す . 














一 ブログ ラム の モジ ュー ル 化 

手続 き 抽象 は “大 き な プ ログ ラム を 書く 場合 に 有意 な 小 部 分 に 分 割 す る ? と いう トッ プ ダ ウン 
的 な 考え か た で す が , 逆 に “小さ きい プロ グラ ム を 組み 合わ せ て 大 き な プ ログ ラム を 構成 する ? と 
いう よう に ボトム アッ プ 的 に 考え る こと も で きま す . うま く 関 数 を 作り 貯め て お く と , それ を 組 
み 合わ せる だ け で 新しい プロ グラ ム を 構成 する こと が で きま す . 

この よう に 後 で 再 利 用 で きる よう に プロ グラ ム を 作る こと を プロ グラ ム の モジ ュー ル 化 (部 品 
化 ) と いい ます 。 モジ ュー ル 化 を うま く 行 うに は , 関数 を で きる だ け 一 般 的 な 仕様 に する こと と と 
グロ ー バ ル 変 数 は で きる だ け 参 照 し な いで 引数 を 使う こと が 重要 な ポイ ント で す . 
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画 真 の 構造 化 プ ログ ラミ ング 





同一 の 処理 を 行う , 従来 の BASIC の 制御 構文 で 書か れん た プロ グラ ム (リス ト 3.16) 








かま 2 く 


-BASIC の 構造 化 制 御 構文 を 使っ た プロ グラ ム (リス ト 3.17) と 比較 し て み ま し ょ う (この サン 
プル プロ グラ ム は 昔 懐 か し い ス ネー ク ゲ ー ム で す )。 














リス ト 品 . 1 従来 の BABIO の 制御 構文 で 書い た ブログ ラム 


1999 int x(255) = { 48, 47, 46, 45, 44 } 


月 日 


1919 int y(255) 12、 12.。 2.12、123 1 
1929 int d,Ex,Ey,h,i,tail = 4,tmpx, tmpy,Xl,y1 
1939 char c = 

1949 randomize(val(right$(time$,2))) 

1959 locate ,,9 

1969 cls 

1979 gosub 1519 

1989 gosub 1379 

1999 gosub 1439 

1199 if tail >= 255 then goto 1159 

1119 c = asc(inkey$) 

1129 c = toupper(c) 

1139 gosub 1189 

1149 if d <> -1 then goto 11 釣 

1159 locate 9,26,1 : beep : print "お し まい " 
1169 end 


1179 /* Move Snake 
1189 tmpx = x(⑳⑰ : tmpy = y( の 


1199 ifc= &HIC or c = L' then if x(⑳⑰ 
1249 else d = -1 : return 

129 jifc= &HID or c= HH then if x( の 
1249 else d = -1 : return 

1219 ifc= HIForc= 'J then if y( の 
1249 else d = -1 : return 

1229 ifc= &HIE or c = 'K' then if y( の 
1249 else d = -1 : return 

1239d = : return 

1249 ji = tail + 1 

1259 if i< 1 then goto 139 

1269 X(i) = x(i-1) 

1279 y(j) = y(i-1) 

1289 1 =iー1 

1297 goto 1259 

1399 x(⑳⑰) = tmpx : y(⑳ の = tmpy 

1319 x1 = tmpx : y]1 = tmpy : gosub 1659 
1329 if h = -1 then d = -] : return 


< 83 then tmpx 


> 


> 


11 then 
24 then 


6 then 


tpX 


tmpy 


tmpy 


| 





x(9⑳) + 1 : goto 
x() - 1 : goto 
y( の + 1 : goto 
y(9 の - 1 : goto 


1339 if tmpx = Ex and tmpy = Ey then locate 9 : print "7977(tail-3)*19! | 


tail=tail+] : 
1349 
1359 
1369 
1379 
1389 
1399 
149 
1419 
1429 
143g 
1449 
1459 
1469 
1489 
1499 


gosub 1369 
d = : return 
/* Display Snake 
locate x( の ,y( の : print "* 
for ji = 1 to tail 

locate x(i),y(Gi) | print "@7: 
next 
return 
/* Display Esa 
Ex = mnd() * 73 + 11 
Ey =rnd()*18+6 
xl = Ex ・: x2 = Ey : gosub 165! 
ifh = -1 then goto 1439 
locate Ex,Ey : print "|: 
return 


し 


gosub 1439 else locate x(tail+1),y(tail+1) : print 6 





1 フォ 
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15 角 /* Write Border 
1519 for i=65 to 25 
1529 locate 19,i 
1539 print "Pispace$(73)jP1 ツ : 


1549 next 

1559 for ij = 11 to 83 

1569 locate ji,5 : print ツー ツ : 
1589 next 

1599 for ij = 11 to 83 

169 locate 1,25 : print "ー ツ 5 
1629 next 


1639 return 

1649 /* ls Hit ? 
1659h = 

1669 for ij= 1 to tail 


1679 if xl = x(i) and y1 = y(i) then h = -1 


1689 next 
1699 return 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーOOOOOOOOOOOOOooooooo 


リス ト 避 . ] 構造 人 制御 文 を 人 使っ て 書い た プロ グラ ム 


ェ ュー 


CO KS 
ココ の 


て で くら < くう < く < や <cS に OK ト 5 
CSE ら う 二 OO 


て うっ 
て 1 


36: 


Sc で ぐ 〇 ぐ - コ oO の em な coSkO >ー 


ト O レー レー トー トー トー トート っ し っ 
や SG ぐ - コ の つの の な co ko 


lo こぶ て 四 て 】 
な CSF ト S 


Lo】 
cn 


Write_Border() 

・ Disp_Snake() 

: Disp_Esa() 

・ while tail < 255 

c = asc(inkey$) 

c = toupper(c) 

if Move_Snake(c) then break 
: endwhile 


・ end 

: func Move_Snake(di int) 

Int i,tmpx,tmpy 

tmpx = x( の : tmpy = y(⑳ の 
switch(d) 

case 1C 


break 
case &HID 
case HH : if x( の ) > 11 then 
break 
case 人 IF 
case J : jif y(⑳0) < 24 then 
break 
caSe &HIE 
case K : ify( の > 6 then 
break 
default : return(⑳ 
endswitch 
1 = tail+1 
while j >= 1 
X(i) = x(ji-1) 
) = y(ji-1) 
"4 愉 で 1 
endwhile 


int x(255) = { 48, 47, 46, 45, 44 } 
int y(255) = { 12, 12, 2、 12。 12 3 
int Ex。Ey,tail = 4 
・ randomize(val(right$(time$,2))) 
・char cs 
locate ,,9 
cls 


case L”: jif x(9 の ) < 83 then tmpx 


tmpX 


tmpy 


tmpy 


・ locate 26,1 : beep : print "お し まい と 


x( の 


X( の 


y( の 





Se 


の 


e 


6ISe 


return(-1) 


return(-1) 


return(-1) 


return(-1) 
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42: x(9) = tmpx : y( の =tmpy 

43: if ls_Hit(tmpx,tmpy) then return(-1) 
44: if tmpx= Ex and tmpy = Ey then { 
45: locate 9 

46: print "$j(tail - 3)*19 
47: tail = tail + 1 

48: Disp_Esa() 

49: ) else 5 

59: locate x(tail+1),y(tail+1) 
51: Din も ニニ ーッ 

52: ) 


53: Disp_Snake() 
54: return(⑳ 

55: endfunc 

56: func Disp_Snake() 


57: int i 

58: locate x( の ,y( の : print "*5 

59: for j = 1] to tail 

6: locate x(i),y(i) : print "9 
61: next 


62: endfunc 
63: func Disp_Esa() 





64: int ji 

65: while 1 

66: Ex = rnd() * 73 + 11 

67: Ey =rnd() * 18+6 

68: if not Is_Hit(Ex,Ey) then break 
69: endwhile 

79: locate Ex,Ey : print "#: 

71: endfunc 

72: func Write_Border() 

73: int ji 

74!: for i=5 to 25 

75: ocate 19,j 

76: print "Iispace$(73)j7 1 
77: next 

78: for i = 11 to 83 

79: ocate 1,5 

89: print "-5: 

81: next 

82: for j」 = 11 to 83 

83: ocate 1,25 

84: print "- リ 

85: next 

86: endfunc 

87: func int Is_Hit(xliint,yliint) 
88: int ji 

89: for j = 1 to tajil 

99: if xl = Xi) and y1 = y(j) then return(-1) 
91: next 

92: return( の 

93: endfunc 





従来 の 構文 で は サブ ルー チン が 何 を する も の か 呼出 し 側 (gosub 行 番号 ) で は まっ た く 見 当 も 
つき ませ ん . また サブ ルー チン が 実際 は 関数 ( 値 を 返す 手続 き ) で ある 場合 で も , その 値 を グロ ー 
バル 変数 を 使っ て 返し て いる た め , 単なる 手続 き で ある サブ ルー チン と 区 別 が つき ませ ん . 

ぜ と goto で 選択 構造 と 繰返し 構造 を 表し て いま す が , イ ン デ ント の 助け を 借り な けれ ば それ が 
選択 構造 で ある か 繰返し 構造 か ら の 脱出 を 表わし て いる の か わか り ま せん . 多 方 向 分 岐 を 表す 構 
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3.5 X-BASIC の 制御 構造 


文 (Switch--case->endswitch) が な いた め 中 --then--goto の 維 列 に な り 非 常に 読み に くく な っ て 
いま す . 

それ に 比べ る と 構造 化 制御 文 を 用 いた プロ グラ ム は , 注釈 が な なく て も 関数 の 名 前 で その 処理 内 
容 が 判り ます し , 関数 と 手続 き の 区 別 も は っ きり し て いま す .。 多 方 向 分 岐 を 適切 に 使う こと で 複 
数 の 選択 を まとめ て ある た め , ぐっ と 読み や すく な っ て いる の が わか る で し ょ う . 

ここ で 注意 し な けれ ば な ら な い の は , 構造 化 制御 構文 を 使え を ば か な ら ず プロ グラ ム の 構造 化 が 
で きる わけ で は な いと いう こと で す . 構造 化 制御 構文 は プロ グラ ム を 読み や すく する た め の 手 段 
で し か な く , プロ グラ ム が 読み や すい か どう か は , プロ グラ マ の コー ディ ング テク ニッ ク の 良否 
に か か っ て いま す . 下手 に 構造 化 制御 構文 を 多用 し た プロ グラ ム よ り も る 的確 に goto を 使っ た プ 
ログ ラム の ほう が 読み や すい こと も 多々 あり ます . 

関数 も 同様 で . うま く 抽 象 化 を 行わ な いと 処理 が 分 散 さ れる だ け に 非常 に 読み に くい プロ グラ 
ム に な り ま す . モジ ュー ル 化 を 考え すぎ て あま り に も 一般 的 に 書か れ た 関数 は 読み に くい だ け で 
な く 使 い に く いも の で す . 

この へ ん の 兼ね 合い は プロ グラ ミン グ の 経験 を 積み 重ね る こと で 修得 し て いく ほか あり ませ 
ん . 他人 の 書い た プロ グラ ム を 読む こと も よい 経験 と な り ま す . その と き は ,。 プロ グラ ム の 表面 
だ け で は な く ,。 プロ グラ マ が 何 を 考え て コー ディ ング し た か を 読み 取る 訓練 も 重要 で す . 





























一 X- フ ASIC の 関数 定義 と 呼出 し 

X-BASIC の 関数 は , BASIC.X に 組み 込ま れ て いる 標準 関数 。 拡張 子 ^.FNC* の ファ イル に 収 
め ら れ て いる 外部 関数 、 そし て プロ グラ ム 中 で 定義 むす る ユー ザー 定義 関数 の 3 種類 に 分 けら れ ま 
す 。 従来 の BASIC で も , DEF FN の よう な ユー ザー 定義 関数 が あり まし た が , 演算 だ け に 限ら 
れ て いま し た . X-BASIC で は サブ ルー チン に 相当 する 単位 を 関数 と 呼び ます . 

ユー ザー 定義 関数 は リス ト 3.18 の よう に , func 一 endfunc を 使っ て 定義 し ます . func と end- 
func の 間 に あ る ステ ー ト メン ト や 関数 な ど が , ユー ザー 定義 関数 の 処理 の 定義 内 容 に な り ま す . 
この と き , 引数 や 戻り 値 の 型 も 同時 に 宣言 し ます . 引数 や 戻り 値 の 型 が 指定 され な いと き は , す 
べ て int 型 と みな され ます . 


リス ト .] 昨 関数 定義 の 例 


: func jnt jsodigit(chichar) 


ty 
2 if ch >=> 是 and ch <= "7′ then { 
03 return(-1) 

4: ) else { 

5 return( の 

6 

7: endfunc 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 


契 / 
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また , 処理 の 結果 を 返す 場合 は , 


return (戻り 値 ) 





の よう に し て 返す こと が で きま す . gosub-return の 形態 の サブ ルー チン の 処理 結果 が 必要 な 場 
合 , メ イン ルー チン と サブ ルー チン の 間 に 引 数 や 戻り 値 を や り と りす る た め の 変 数 を 用 意 す る 必 
要 が あり まし た が , ユー ザー 定義 関数 を 使え ば. その よう な 必要 は な く な り ま す . 

定義 され た 関数 は , 標準 関数 な ど と 同等 に 扱わ れ ま すか ら , 関数 の 名 前 に 続け て , その 関数 に 
渡す 値 (引数 ) を 書く だ け で OK で す . も ちろ ん , 関数 の 戻り 値 を 演算 な ど に 用 いる 場合 も , 式 
の な か で 関数 を 呼ぶ こと が で きま す . 関数 の 定義 は 次 の よう な 行 で 始 り ます . 














func function (p1 : int, p2 : str) 


この と き , 引数 の 型 を ヾ :? (セミ コロ ン ) に 続け て 書い て 宣言 し ます . 型 を 指定 し な い 場 合 は 
int 型 と みな され ます . 関数 の 側 で は , 関数 定義 の と き に 引数 と し て 指定 され た 変数 名 を その まま 
使っ て , 外部 か ら 渡 され た 値 を 使用 する こと が で きま す . 

また , 関数 が 内 部 か ら 自 分 自身 を 呼び 出す こと (再帰 呼出 し) も 可能 で す (リス ト 3.19). 自分 
自身 を 呼ば れ て も , 呼び 出し た 関数 と は まっ た く 別 の も の と し て 扱わ れ ま すか ら , ロー カル 変数 
の 値 は 保護 され て いま す . 














リス ト 避 .] 関数 の 再帰 呼出 し 


: /* 1 か ら n の 合計 


1 

2: jnt ji,anSWwer 

3: while 1 

4: repeat 

5: input "数 を 入力 し て くだ さい (1 っ )", 
6: until ((i > and (ji * 162 < free)) 
7: answer = sum(i) 

8 print "1 から" まで の 合計 は "janswer:" で す 。”" 
9: endwhile 

19: end 

11: func int sum(iiint) 

12: 。 if ij= 1] then return(1) 

18: return(ir+sum(i-1)) 

14: endfunc 

















関数 を 呼び 出す と , 結果 を 表す 値 を 返し て きま す . これ を 戻り 値 と いい ます . 戻り 値 の 型 は 関 
数 の 宣言 時 に 指定 し ます . 戻り 値 は 関数 を その も の が 持っ て いま すか ら , 





nfunction (2) 





の よう に 書く こと で , 関数 function の 戻り 値 を 変数 n で 受け 取る こと が で きま す . 
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3.6 標準 関数 





また , 標準 関数 や 外部 関数 で は 。 引 数 に し て いる 変数 に 値 を 返す も の も あり ます . た と えば , 
ファ イル 入出 力 関数 の fread 関数 は , 





fread (na, In, fp) : 


と し た 場合 , 配列 na に ファ イル か ら 読 み 込 ん だ デー タ を 格納 し ます . 





3. ロ | 標準 関数 


この 節 で は , X-BASIC 本 体 に 組み 込ま れ て いる 標準 関数 に つい て , その アウ トラ イン を 解説 す 
る こと に し まし ょ う 。 





づ .B.1 数 値 演算 関数 
四則 演算 以外 の 演算 を 行う 関数 で , 累乗 関数 や 三角 関数 対数 関数 , 乱 艇 発生 関数 な ど が あり 
ます ( 表 3.11), 

















能 





引 数 戻り 値 機 
abs(n) float 型 float 型 n の 絶対 値 を 求め る 
atan(n) float 型 float 型 n の アー クタ ンジ ェ ン ト を 計算 する (戻り 値 の 値 域 は ー ァ /2 て ァ /2) 
cos(n) float 弄 float 弄 n( ラ ジア ン ) の 余弦 (コサイン ) を 計算 する 

exp(n) float 型 float 型 自然 対数 の 底 ^e′ の n 乗 を 計算 する 





















































log(n) float 型 float 型 n の 自然 対数 を 返す . n>0 で な けれ ば な ら な い 
。 円 周 地 を 返す . 実際 に は ( ヶ xn) を 計算 し て 返す . n を 省略 する と 
弄 ! 電 ! 
pi(n) float 型 float 型 ァ の 値 を 返す 








n1 の n2 乗 の 計算 を する . n1=0 か つ n2<0 の 場合 と , n1 く 0 か つ 
n2 が 整数 で な い 場 合 は , エラ ー と な る 


rand( ) ーー int 型 0 以上 32767 以下 の 乱数 を 返す 
randomize(i) | int 型 eg rnd() の 乱数 系 列 を 初期 化す る (一 32768 ミ i ミ 32767) 
rnd( ) ーー float 型 0 以上 1 未満 の 乱数 を 返す 


pow(n1, n2) float 型 float 型 


























5 float 弄 float 型 人 正 の 場合 は 1, 0 の 場合 は 0, 條 の 場合 は ー1 を 
sin(n) float 型 float 型 n( ラ ジア ン ) の 正弦 (サイ ン ) を 計算 する 

sqr(n) float 型 float 型 n の 平方 根 ( ル ー ト ) を 返す (n=0) 

srand()) int 型 ーー rand() の 系 列 を 初期 化す る (0 ミ =i ミ 65535) 

















tan(n) 


float 型 float 型 n( ラ ジア ン ) の 正 接 ( タ ンジ ェ ン ト ) を 計算 する | 
表 .] ] 数 値 演算 関数 
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こっ 育 


デー タ 変 換 関数 


デー タ 変 換 関数 は 数 値 と 文字 列 と の 相互 変換 や 文字 変換 , 数 値 変換 な どの た め の 関 数 で す ( 表 


8 き 引 27.。 


asc(st) 


st 型 


int 型 


st の キャ ラク タコ ー ド を 返す . た だ し , 漢字 の コー ド 
は 先頭 の 1 バイ ト 分 し か 返ら な い 


戻り 値 の 意味 


st が null の 場合 は 0 が 返る 





atof(st) 


str 型 


float 型 


float 型 の 数 値 を 表す 文字 列 st を float 型 の 数 値 に 変換 
する 





atoi(st) 


st 型 


int 型 


int 型 の 数 値 を 表す 文字 列 st を int 型 の 数 値 の 変換 する 





binS(n) 


int 型 


str 型 


n の 整数 値 を 2 進数 に 変換 し て 文字 列 で 返す . 上 位 の 
^0” は 取り 除 か れる 





chrS(ch) 


char 型 


str 型 


キャ ラク タコ ー ド が ch の 文字 を str 型 で 返す 


ch が 0 の 場合 は と き は null を 
返す 





ecvt(f, i1, i2, i3) 


float 型 (⑪, 
int 型 (1), 

int 型 変数 (2) 
int 型 変数 (3) 


浮動 小数 値 f を i 桁 の 文字 列 に 変換 する . i2 に は 小数 
点 の 位置 が , i3 に は 符号 を 表す 数 値 ( 正 な ら ば 0, 負 な 
ら ば 1 が ) 返さ れる 

文字 列 と し て 返る の は 数 値 の み に な る 





fcvt(f, ii2, i3) 


float 型 (⑪, 
int 型 (1), 

int 型 変数 (12) 
int 型 変数 (3) 


浮動 小数 値 f を 小数 点 以 下 1 桁 の 文字 列 に 変換 する .i2 
に は 小数 点 の 位置 が , I3 に は 符号 を 表す 数 値 ( 正 な ら 
ば 0, 負 な ら ば 1) が 返さ れる . 文字 列 と し て 返る の は 
数 値 の み に な る 





fix(f⑪ 


float 型 


float 型 


浮動 小数 値 f の 値 の 小数 点 以下 を 切り 捨て た 整数 部 の 
値 を 返す 





gcvt(f, i) 


float 型 (⑪, 
int 型 (⑪) 





浮動 小数 値 f を i 文 字 の 文字 列 に 変換 し て その 文字 列 を 
返す 

通常 は i 桁 の 実数 表現 に 変換 する が , それ が で き な い と 
き は 指数 表現 に 変換 する 





hex$(n) 


int 型 


str 型 


整数 値 n を 16 進数 の 文字 列 に 変換 する . な お , 上 位 の 
^0” は 取り 除 か れる 





int(⑪) 


float 型 


int 型 


f を 超え な い 最 大 の 整数 を 返す 





itoa(i) 


int 型 


str 型 


整数 値 を 文字 列 に 変換 し , その 文字 列 を 返す 





octS(n) 


int 型 


st 型 


整数 値 n を 8 進数 の 文字 列 に 変換 する . な お , 上 位 の 
^0” は 取り 除 か れる 





str$(n) 


float 型 


str 型 


浮動 小数 値 n を 文字 列 に 変換 し て 返す 





toascii(ch) 


char 型 


int 型 


文字 ch が 非 ASCII 云 字 で あれ ば ASCII 文字 (&h00 て 
&h7F) に 変換 し て 返す 





tolower(ch) 


char 型 


int 型 


文字 ch が 英 大 文字 い A” て ^Z”) で あれ ば 英 小文字 ('a* 
の) に 変換 し て 返す 





toupper(ch) 


char 型 


int 型 


文字 ch が 英 小文字 (a* て *z7?) で あれ ば 英 大 文字 い A/ 
で \Z?) に 変換 し て 返す 





val(st) 
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str 型 





float 型 





st の 文字 列 を 浮動 小数 値 に 変換 し て 返す . 
Y&H*。 ^&O", ^&B” の 形式 の 数 値 も 変換 で きる 


表 コ .1 己 デー タ 変 換 関数 








3.B.3 文字 列 処 理 関数 
文字 列 の 変換 や 文字 列 中 の 特定 の 文字 を 検索 する な ど 。 文字 列 を 操作 する た め の 関 数 で す ( 表 


3.13)、 ほ と ん どの も の は , 従来 の BASIC に あっ た も の と 同じ で す が , 若干 動作 が 違う も の や X& 
-BASIC 独自 の も の も あり ます の で の で , それ ら の 関数 に つい て 説明 し ます . 





int 型 


文字 列 st の 文字 目 以降 か ら 文 字 列 st2 を 探し て その 


3.6 標準 関数 


戻り 値 の 意味 


見 つか ら な いり い 場合. が 0 か 負 















































































































































instr(i, st1, st2) int 型 ()), str 型 (st1) , 位置 を 返す の 場合 は stt を , st2 が null 文 
sr 型 (2) | 字 の 場合 は 0 を 返す 
4 文字 ch が 英 数 字 (a” て Yz7。 AA7 て NZ 07 て バ 97) | 英 数 字 の 場合 は -1. そう で な 
電 ! 直 ! す 
lealmumi(ch) Cher 補 mt 江 で ある か どう か を 調べ る い 場 合 は 0 を 返す 
上 文字 ch が 英字 (Ca て Yz?。 パ A” て YZ?) で ある か どう | 英字 の 場合 は -1. そう で な い 
者 り 弄り 
isalpha(ch) char 型 int 型 か を 調べ る 場合 は 0 を 返す 
5 肌 Pe 文字 ch が ASCII 文字 (&h00 て &h7F) で ある か どう か を | ASCII 文字 の 場合 は ー1, そう 
isascii(ch) char 型 int 型 調べ る で な い 場 合 は 0 を 返す 
コン トロ ー ル 文字 の 場合 は 
ト 有 文字 ch が コン トロ ー ル 文字 (&h00 て &h1F, &h7F) で あ MS ペ 
者 弄 喧 *: な い 場 合 反 
iscntrl(ch) char 型 int 型 る か どう か を 調べ る Ss そう で な い 場 合 は 0 を 返 
3 1 > 5 本 ーー Ph 数 字 の 場合 は -1, そう で な い 
isdigit(ch) char 型 int 型 文字 ch が 数 字 (*O 9*) で ある か どう か を 調べ る 場合 は 0 を 返す 
% 葉 ま Y スペ ー ス 以外 の 表示 可能 な 文 
本 未 可 能 な 文字 。 ) 
isgraph(ch) char 型 int 型 皇 2 0 字 の 場合 は -1, そう で な い 場 
い 合 は 0 を 返す 
と 8 cu Su 0 英 小文字 の 場合 は -1, そう で 
| 弄 語 R ヽ 立 空 (コク ニレ ボッ ケ ヽ \ 調 べ い 3 
islower(ch) char 型 int 型 文字 ch が 英 小文字 (a zZ?) で ある か どう か 調べ る な い 場合 は 0 を 返す 
EE 5 文字 ch が 表示 可能 な 文字 (&h20 て &h7E) で ある か どう | 表示 可能 な 文字 の 場合 は 1, 
者 ! | 
isprint(ch) char 型 int 型 か 調べ る そう で な い 場 合 は 0 を 返す 
文字 ch が 表示 可能 な 記号 文字 (&h20C&h2F, &h3A ーー 
s の 表示 可能 な 記号 文字 の 場合 は 
作り っ ン っ ン っ ン ・ ヽ \ 
ispunct(ch) char 型 int 型 に &h5B て &h60, &h7B--&h7E) で ある か どう か ー1. そう で な い 場 合 は 0 を 返す 
の 0 文字 ch が 空白 文字 (&h09 て &h0D, &h20) で ある か どう | 空白 文字 の 場合 は -1. そう で 
り 電 
isspace( ch) char 型 int 型 か 調べ る な い 場 合 は 0 を 返す 
5 1 所 ラル ツタ ど 本 英 大 文字 の 場合 は -1. そう で 
弄 」 5 < (AZ スペ フク ) で と は 1. 
isupper(ch) char 型 int 弄 文字 ch が 英 大 文字 いび A” て ^Z7) で ある か どう か 調べ る な い 場 合 は 0 を 返す 
っ y 文字 ch が 16 進 の 文字 CO” て 97 Ya/ て YA | 16 進 の 文字 の 場合 は 1, そう 
作り 弄 
所 90 記 揚 は 江 ーYF?) で ある か どう か を 調べ る で な い 場 合 は 0 を 返す 
str 型 (sb , 剛 PNG あっ ae 0 i が 0 また は 負 の 場合 は null 文 
left$(st, i) int 型 () str 型 文字 列 st の 左端 か ら 」 文 字 の 文字 列 を 取り 出す 字 を 返す 
str 型 (SD, 字 1 文字 目 以降 か ら 12 文字 の 文字 | 中 12 が 0 あるいは 人 負 の 場合 
mid$(st ii2) | int 型 (⑪), | sr 弄 2 以降 か ら 2 文字 の 文字 列 を 取り | ょ た は in が 文字 列 st の 長 さ を 
int 型 (12) 超え て る 場合 null 文字 を 返す 
mirror$(st) str 型 str 型 st の 文字 列 の 並び を 反転 し て 返す 
。 2 str 型 (St), 和 EE 了 re i が 0 か 負 の 場合 は null 文字 
right$(st ) int 型 (⑪) st 型 文字 列 st の 右端 か ら 1 文字 の 文字 列 を 取り 出す を 返す 
ji が N 会 (エキ | 文字 
spaceS() int 型 str 型 i 文字 の 空白 (&h20) か ら な る 文字 列 を 作る | が 0 か 人 の 欄間 人 は 9 半 
を 返す 
s 型 (0。 | 文字 列 st の な か で 最初 に 文字 ch を 見 つけ た 位置 を 返 、 
Sd char 型 (ch) | す . 位置 は 文字 列 st の 先頭 が 0 に な る 人 
_ | 見 つか ら な い が nul 
文字 列 st2 の どれ か 1 文字 を 文字 列 stt の な か で 最初 に 6 ま 
却 り 爺 り 字 の 揚 会 を - 1 
strcspn( st1, st2) str 型 int 型 見 つけ た 位置 を 返す 。 位置 は 文字 列 の 先頭 が 0 に な る 文字 の 場合 6 を 。 St 
と 6 int 型 (⑪, 8 きい RS | 
string$(i。 st) str 型 文字 列 st の 先頭 1 文字 か ら な る | 文字 の 文字 列 を 作る 
str 型 (st) 
strlen(st), len(st) str 型 (st) int 型 文字 列 st の 長 さ を 返す 
strlwr(st) str 型 変数 str 型 文字 変数 st の な か の 英 大 文字 を 英 小文字 に 変換 する 
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戻り 値 の 意味 











str 型 変数 (Sb, 
strnset(st, ch, i) char 型 (ch), | str 型 
int 型 ⑪ 


str 型 (st) , 


文字 列 st の 先頭 か ら 文字 分 を 文字 ch に 変換 する .i が 
0 か 負 の 場合 は st の 内 容 は 変わ ら な い 
















文字 列 st の な か て 文字 ch が 最後 に 見 つか っ た 位置 を 返 





















j 井 り 陀 \ 記 な い 場 合 | る 返 
strrchr(st。 ch) char 型 (ch) | 中型 す . 位置 は 文字 列 の 先頭 が 0 に な る 見 つか ら な い 場 合 は 1 を 返す 
strrev(st) str 型 変数 sr 型 文字 列 st の 並び を 反転 する 

弄り 恋 潮 
strset(st ch) 9 型 数 (| 各 文字 列 st の 文字 を , すべ て 文字 ch に セッ ト す る 






char 型 (ch) 












見 つか ら な い 場 合 は st1 の 長 さ 





字 列 st2 に 属さ な い 文字 を , 文字 列 st で 最初 に 見 つ 








strspn(st1, st2) str 型 int 型 0 、 に = Er 3 を , st1,. また は st2 が null 文 
けた 位置 を 返す . 位置 は 文字 列 st1 の 先頭 が 0 と な る 字 の 場合 は 0 を 返す 
strtok(s, si2) st 弄 st 弄 文字 列 st2 に 含ま れる 文字 (どれ か | つ ) を 文字 列 st1 か | st2 に 含ま れる 文字 が 見 つか ら 
3 レー ーー3 


ら 探 し , 先頭 か ら そ の 仔 置 ま で の 文字 列 を 返す 
文字 変数 st の 英 小文字 を すべ て 英 大 文字 に 変換 する 


な く な る と null 文字 を 返す 























strupr(st) str 型 変数 str 型 





表 ヨ .13 文字 列 処理 関数 


関数 名 が "Ss” で 始ま る 関数 は , 文字 の 種類 を 調べ る た め の も の で す . これ ら の 関数 は , 調べ る 
文字 種 も それ ぞ れ 決ま っ て いま すか ら , 関数 名 を 見 れ ば どう いう 文字 種 を 調べ る か が わか り ま す . 

strchr 関数 と strrchr 関数 は 文字 の 検索 を 行う た め の 関 数 で , 文字 列 の な か で 指定 され た 文字 
を 最初 に 見 つけ た 位置 を 返し ます . 見 つか ら な か っ た 場合 は ー1 を 返し ます . strchr が 文字 列 の 先 
頭 か ら 検索 する の に 対し て , strrchr は 文字 列 の 最後 か ら 検索 し ます . 位置 は 文字 列 の 先頭 を 0 と 
し , 何 番目 に ある か を 返し ます . 

リス ト 3.20 で は , “~X68000 Enjoy X68000′ と いう 文字 列 の 先頭 と 未 尾 か ら “X? と いう 文字 
を 探し て いま す . 


























リス ト . ら strchr 関数 と gtrrchr 関数 


StT's 

int i 

s = ”X68999 Enjoy X68999" 
i = strchr(s,"%”) 

pi も 3 

1 = strrchr(s,"% り ) 

print ji 


-J OO な < や と や 憲 





strcspn 関数 と strspn 関数 は 2 つの 文字 列 を 比較 する 関数 で す . strcspn 関数 は 2 つの 文字 列 
の な か に 共通 の 文字 を 最初 に 見 つけ た 位置 を 返し ます . 逆 に strspn 関数 は 2 つの 文字 列 の 違い を 
見 つけ , その 位置 を 返し ます (リス ト 3.21). 




















リス ト . ] strcspn 関数 と strspn 関数 


str sl,s2 
sl = “BASGASUBAKUHATSU" 
Ss2 = “CDEFG" 


print strcspn(sl,s2) 

sl = “Tokyo Tokkyo kyokakyoku" 
s2 = “Tokyo " 

print strspn(s1,s2) 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー-ーmーーーmーーーーーーーーーーーーーー 一 


OOc<m 選 CS と SO ピー 


し J 
トゥ 


3.6 標準 関数 


strtok 関数 は 文字 列 st2 に 含ま れる 文字 (どれ か 1 つ ) を 文字 列 st1 か ら 探 し , 先頭 か ら そ の 位 
置 ま で の 文字 列 を 返し ます . この 関数 の 使い か た は , 他 の 関数 に 比べ て 少々 特殊 で , 1 つの 文字 列 
を 調べ る の に 少な く と も 2 回 は 実行 する 必要 が あり ます . 
避 目 は , st1 に 調べ られ る 文字 列 。st2 に 調べ る 文字 列 を 入れ て 実行 し ます . その 結果 , 1 つ 目 
の 文字 列 が 返り ます . st1 の 先頭 に st2 に 含ま れる 文字 が あっ た と し て も 無視 きれ ます 。 2 回 目 以 
降 は , st1 を nall 文字 に し て 実行 し ます . 1 回 実行 する ご と に 2 つ 目 , 3 つ 目 , … と 見 つけ て いき 
ます . 見 つか ら な く な る と nmull 文字 を 返し ます . 

この 関数 は 文字 列 の な か か ら ス ペー ス や カン マ で 区 切ら れ た 単語 を 取り 出す と いっ た 検索 に 使 
用 で きま す . 

リス ト 3.22 は , 文字 列 *Hi, my name is X68000.′ と いう 文字 列 か ら , バ ,” と そし て ス 
ペー ス を セパ レー タ と し て 単語 を 切り 出し て いま す . 
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リス ト . ど strtok 関数 


・ Str Stl st2,tmp,NULL="" 


] 

2 St ド = "Hi my name is X68 動 9." 
3:_st2.= ツ /* Separator 
4: tmp = OCG ,St2) 

5: while tmp <> NULL 

6: print tmp 

7 た tmp = strtok(NULL, st2) 

8: endwhile 

9: print st1 

19: end 





strset 関数 と strnset 関数 は 指定 され た 文字 で 文字 列 を 埋め ます . strset 関数 は 文字 列 の 文字 す 
べ て を 指定 され た 文字 で 埋め ます . strnset 関数 は 文字 列 の 先頭 か ら 指定 され た 文字 数 だ け 埋 め ま 
す . 16 進数 を 表示 する 場合 , hex$ 関 数 だ け で は 数 値 が 小さ いと 8 桁 表 示 を し た く て も 2 か ら 3 桁 
し か 表示 され な いこ と が 多い も の で す . そこ で strset 関数 を 使っ て , 表示 され て いな い 上 位 の 桁 
を 0 で 埋め る こと が で きま す (リス ト 3.23). 





リス ト . ど strset 関数 と strnset 関数 


1: str sl,s2 

2: sl = space$(5) 

3: s2 = "Watashi ha X68M.“" 
4: strset(s1,'W):print sl+s2 
5: strnset(s2,'"W',8):print s2 





strlwr 関数 と strupr 関数 は 文字 列 中 の 英字 を 変換 し ます . strlwr 関数 は 文字 列 中 の 英 大 文字 を 
英 小文字 に 変換 し ます . strupr 関数 は 文字 列 中 の 英 小文字 を すべ て 英 大 文字 に 変 打 し ます . Hinput 
文 な ど で フ ァイル ネー ム を 入力 し て 大 文字 ノ 小 文字 が そろ っ て いな いと き に と これら の 関数 を 有効 
に 使う こと が で きま す (リス ト 3.24). 
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リス ト 紀 . 選 4 striWr 関数 と strupr 関数 


str sl 

sl= "00MOJI To Komoji" 
print strlwr(s1) 
print strupr(s1) 


お で う トウ テー 





づ .B.4 ファ イル 入出 力 


まず , 表 3.14 に ファ イル 入出 力 関数 の 一 覧 を 示し ます . ちょ っ と 見 た だ け で も , これ まで の 





BASIC と は 趣 を 異 に し て いる こと に 気がつく で し ょ う . 
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表 コ .14 ファ イル 入出 力 関数 








指定 され た ドラ イブ の 空き ディ スク 容量 を 返す 
dskf(i) char 型 int 型 (i= ニ 0 : カレ ント ドラ イブ , 1 : A ドラ イブ , 2:B ド ラ | エラ ー の 場合 は -1 を 返す 
イブ .…) 
を fopen に よっ て オー プン され た ファ イル 番号 fp の ファ | 成功 し た 場合 は 0, エラ ー の 場 
地 り | 
fclose(fp) int 型 Int 型 イル を クロ ー ズ する 合 は 1 を 返す 
クロ ー ズ され た ファ イル 数 を 
fcloseall( ) ーー int 型 オー プン され て いる ファ イル を すべ て クロ ー ズ する 返す . エ ラー の 場合 は -1 を 返 
す 
了 に 思 成功 し た 場合 は 0. エ ラー の 場 
fdelete(fn) str 型 int 型 ファ イル 名 fh の ファ イル を 削除 する 合 は -1 を 返す 
ae 、 ぁ か ど ュ ムチ | 終わり の 場合 は 1, 終わ っ て 
feof(fp) jnt 弄 int 型 OURAS テ 0 人 ま TREE 2 いな い 場 合 は 0. エ ラー の 場合 
2 は 1 を 返す 
読み 込ん だ 文字 の キャ ラク タ 
ファ イル 番号 fp の ファ イル か ら 1 文 字 ず つ 読 み 込む . | コー ド を 返す . ファ イル の 最 
fgetc(fp) int 型 int 型 ファ イル 内 の デー タ ボ ポイ ンタ の 位置 は ,1 バイ ト ず つ 移 | 後 ま で 読み 込ん だ 場合 や , エ 
動 する ラー が 起こ っ た 場合 は -1 を 返 
] す 
ファ イル 名 fn の ファ イル を 指定 され た モー ド md で オ 
str 型 (fn), 了 ー ブ プン する ファ イル 番号 を 返す . エラ ー 
RG st 型 (md) | 中学 オー プン され た 直後 の ファ イル 内 の デー タ ポ イン タ の | の 場合 は ー1 を 返す 
位置 は ファ イル の 先頭 に な る 
char 型 (ch) ファ イル 番号 fp の ファ イル に キャ ラク タコ ー ド ch の 文 | 書き 込ん だ キャ ラク タ の コー 
fputc(ch, fp) int 穫 (fp) | WW 型 字 を 書き 込む . ファ イル 内 の デー タ ボ ポイ ンタ の 位置 は ,| ド . 書き 込め な か っ た 場合 と 
AB 1 バイ ト ず つ 移 動 する エラ ー の 場合 は 1 を 返す 
ファ イル 番号 fD の ファ イル か ら n 個 分 を 配列 .na に 読 pa 『 RT 
| 宗 に 読み 込ん だ 要素 
fread(na, ni fp) 者 int 型 み 込 む 。 デー タ ポ イン タ の 位置 は 指定 され た 配列 の 型 | 天 際 0 電 1 を す 
党 tm fp に 応じ て 移動 する 5 
ファ イル 番号 f の ファ イル か ら 1 行 を 文字 列 変数 st に | 読み 込ん だ 文字 数 を 返す . 
sf 型 変数 (SD 読み 込む ファ イル の 最後 まで 読み 込ん 
freads(st, fp) int 型 fp) | WW 型 改行 が 現れ る か , 文字 変数 の パッ ファ が いっ ぱい に な | だ か , すでに 読み 込ん で いる 
っ た と き 読 み 込み を 終了 する . バッ ファ に は 改行 お よ | 場合 , エラ ー が 起こ っ た 場合 
び 終 了 コ ー ド は 書き 込ま れ な い は -1 を 返す 
st 型 了 ココ ae 変更 で きた 場合 は 0,. エ ラー の 
frename(fn1, fn2) (fn1. fn2) ファ イル 名 を fn1 か ら fn2 に 変更 する 場合 は ー1 
ファ イル 番号 f の ファ イル を シー クモ ー ド md で 指定 
int 型 (fp), され た 位置 か ら バ イト 単位 で オフ セッ ト ofst 分 だ け デ | 新しい デー タ ポ イン タ の 位置 
fseek(fp, ofst md) | int 型 (ofst), | int 型 ー タ ポイ ンタ を 移動 する を 返す . エ ラー の 場合 は ー1 を 
int 型 (md) シー クモ ー ド md は 0 で ファ イル の 先頭 , 1 で 現在 の 位 | 返す 
置 , 2 で ファ イル の 終わ り を 表す 
ファ イル 番号 f の ファ イル に n 個 分 を 配列 na に 書き 5 g SE 
8 1 4 入 ん だ 
twrte(na nm fp) 中型 込む 。 デ ー タ ボイン タ の 位置 は 指定 され た 配列 の 型 に | 圭 き ぶん だ 大 素数 を 返す エ 
本 応じ て 移動 する 
の str 型 (st) , こま ファ イル 番号 fp の ファ イル に 文字 列 型 変数 st を 書き 込 | 書き 込ん だ 文字 数 を 返す . エ 
fwrites(st, fp) int 型 
! int 型 (fp) む . 行 の 終わ り の null 文字 は 書き 込ま な い ラー の 場合 は -1 を 返す 


















3.6 標準 関 


X-BASIC は ,。Human68k の 上 で 動作 し て いま すか ら , や は り デ バイ ス は 特殊 な ファ イル と み 
な すこ と が で きま す . で すか ら , シス テム で 予約 され て いる デバ イス 名 と 同じ 名 前 の ファ イル を 
作る こと は で きま せん . また , ファ イル 名 は 18 文字 まで 指定 可能 で す が , 8 文字 まで し か 識別 き 
れ ま せん . 

それ で は , ファ イル の 入出 力 を 行う か ん た ん な プロ グラ ム を リス ト 3.25 に 示し ます . これ を 見 
な が ら , 順 を 追っ て その 手順 を 解説 する こと に し まし ょ う . 











リス ト 紀 . 己 巳 ファ イル 入出 力 の 例 


1: str sl 

2: char ch 

3: int fp,i 

4: fp = fopen("file1","T") 
5: for i=9 to 15 

6: ch = fgetc(fp) 

7: sl = slrchr$(ch) 

8: next 

9: print sl 

19: end 


まず , フ ァイル を オー プン する こと か ら 始 め ま す . fopen 関数 で ファ イル を オー プン する た め に 
は 。 使用 する ファ イル の 名 前 と , 読み 書き の モー ド (アク セス モー ド ) を 指定 し ます . アク セス 
モー ド に は , 次 の 4 つが あり ます . 














mm … すでに 存在 し て いる ファ イル を 書込み 朋 と し て オー プン する . フ ァイル が な い 場 
は エラ ー に な る 

り w' … すでに 存在 し て いる ファ イル を 読込 み 用 と し て オー プン する . フ ァイル が な い 場 合 
は エラ ー に な る 

Pwr' … すでに 存在 し て いる ファ イル を 読み 書き 両用 と し て オー プン する . フ ァイル が な い 
合 は ヒエ ラー に な る 

"e7  … 新しい ファ イル を 読み 書き 両用 と し て し て オー プン する . す で に その ファ イル が 存 


在 し て いる 場合 は , その ファ イル を 消去 し て か ら , 新しく オー プン する . 


ファ イル の オー プン に 成功 する と , fopen 関数 は 戻り 値 と し て オー プン し た ファ イル に 割り 当 
て た ファ イル 番号 (nt 型 ) を 返し ます . ファ イル の アク セス は , それ が クロ ー ズ され る まで , こ 
こ で 得 た ファ イル 番号 を ファ イル 名 の 代わ り に 使い ます . 

次 に , デー タ を 読み 書き する わけ で す が , 入出 力 関数 ご と に 扱え る デー タ の 型 に 制限 が つい て 
いま す . fgetc 関数 と fputc 関数 で は char 型 変数 , fread 関数 と fwrite 関数 で は 攻 値 型 配列 変数 
freads 関数 と fwrites 関数 で は str 型 変数 で す . 

さて , 双 -BASIC で 決定 的 に 異な る の が , フ ァイル アク セス の 方 法 で し ょ う . これ まで の BASIC 
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で は , シー ケン シャ ル ア ク セス と , ラン ダム アク セス の 区 別 が あり まし た が , X-BASIC で は , 基 








本 的 に シー ケン シャ ル ア ク セス し か で きま せん . も し , ラン ダム アク セス を 行い た い 場 合 は , デー 
タ ポ イン タ と いう 概念 を 使い ます . デー タ ポ イン タ は 。 ファ イル の 先頭 か ら 何 バイ ト 目 の デー タ 
を アク セス の 対象 と する か を 示す も の で , fseek 関数 で この ポイ ンタ の 位置 を 移動 きせ ます . 
デー タ ポ イン タ を 動か す と き の 基 準 と な る 位置 (シー クモ ー ド : 0,1, 2) と , 基準 位置 か ら 何 
バイ ト 目 か を 表す 値 (オフ セッ ト :int 型 ) を fseek 関数 に 渡し ます . シー クモ ー ド に は , 次 の 3 




















種類 が あり ます . 





0 … ファ イル の 先頭 
1 … 現在 の 位置 
2 … ファ イル の 終端 








あと は , 入出 力 を 行う た びに 自動 的 に デー タ ポ イン タ は 移動 し ます . デー タ ポ イン タ が 何 バ イ 





ト ず つ 移 動 す る か は 入出 力 


関 数 名 





fread/fwrite 


配列 変数 


関数 に よっ て 表 3.15 の よう に 異な り ま す . 


デー タ ポ イン タ の 移動 量 


配列 の 型 に 応じ て 変化 する 
char 型 …1 バ イト 
int 型 …4 バ イト 
float 型 …8 バ イト 





freads/fwrites 


str 型 変数 


文字 列 1 行 の 長 さ だ け 移 動 す る 





fgetc/fputc 


char 型 変数 


1 パイ ト よ ト 





fSeek 


すべ て の 変数 








引数 で 指定 され た オフ セッ ト の 分 だ け 移 動 す る 





表 G.15 デー タ ポ イン タ の 移動 量 


また ,X-BASIC で は , field 命令 を 使っ て バッ ファ に 文字 変数 の 領域 を 割り 当て る 必要 は あり 
ませ ん . fread 関数 や fwrite 関数 を 使っ て 配列 変数 の 内 容 を ファ イル か ら 読 み 込 ん を だり, ファ イ 
ル に 書き 込ん だ り し ます か ら , ちょ うど 配列 変数 が ファ イル バッ ファ に な る と 考え られ ます . 
リス ト 3.26 に ラン ダム アク セス を 行う プロ グラ ム 例 を 示し て お きま す . 


リス ト . 選 刀 ラン タム アク セス の 例 


JPKUTO”) 


: dim char tmp(2 の 

: str st[&9] 

: int tp. 1 誠司 

/* デー タ の 書込み 

・ fp = fopen("BASEBALL" 
・for i=to5 

| = strlen(Namae( 


(Co ら CS =- コ OO) の 挟 CFO 


6 


け ) 


・ dim str Namae(5)[2]= { "Nakapata", "Shimotuka","Gara", "Yoshinura”, "Po” 


・dim float Daritu(5) = { 9.345#, 9.338#..275#,9.391#,9.288#,9.321# } 
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19: tmp(9) = 1 

財 代 forj=1tol 

12: tmp(j) = asc(mid$(Namae(i),j,1)) 
13: next 

14: for j」= 凶 tol 

15: fputc(tmp(j), fp) 

16: next 

1 記 % st = gcvt(Daritu(i),4) 

18: for」=9to3 

19: fputc(asc(mid$(st, 寺 1,1)), fp) 
29: next 

21: next 


22: fclose(fp) 

23: fp = fopen("BASEBALL","RP) 
24: /* 名 前 だ け 収 り 出す 

25: for i=to5 


26: | = fgetc(fp) 

27: fread(tmp,1,fp) 

28: forj=9tol-1 

29: print chr$(tmp(j)): 

39: next 

31: print 

32: fseek(fp,4,1) /* 打率 は 飛ば す 
33: next 


34: fclose(fp) 





ファ イル を 使い 終わ っ た ら , fclose 関数 で クロ ー ズ し ます . fcloseall 関数 を 使う と , オー プン さ 
れ て いる ファ イル が すべ て クロ ー ズ され ます . 





d. / グラ フィ ックス 


X68000 の グラ フィ ッ ク 機 能 は , 他 の パソ コン ン と は 比較 に な ら な い ほ ど 優 れ て いま す . この 優れ 
た 機能 を 利用 する に は , や は り X-BASIC を 使っ て プロ グラ ミン グ す る の が べ ベスト で し ょ う ・ 用 
意 き され て いる グラ フィ ッ ク 機 能 は , 点 や 線 の 描画 と スプ ライ ト の 2 つの 部 分 か ら 成 り ま す . 

それ で は ,。 これ ら の 部 分 に つ つい て 順次 紹介 レ し て いく と こと に し まし ょ う . 

















.Z.1 摘 画 関連 の 関数 

描画 を 行う た め の 関数 に は 次 の よう な も の が あり 、 外 部 関数 ファ イル GRAPH.FNC に 収め ら 
れ て いま す 。 表 3.16 を 見 る と , その 数 に も 驚か され ます が X68000 の グラ フィ ックス の し くみ に 
つい て 。 あぁ る 程度 知識 が な いと 使い か た の わか ら な い 関 を と で 1 
か ん た ん な グラ フィ ックス の し くみ と 関数 の 使い か た を 解説 


し ン づつ 、 














uil6 

人 
CV 
V 


る こと が わか り ま す . 


す て 





すき 


D 


* 


衝 す 


本 k 
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グラ フィ ッ ク 関 数 


apage(pa) 


char 型 


侍 に 描画 を 行う グラ フィ ッ ク ペ ー ジ を 指定 する 


戻り 値 の 意味 





box(x1, y1, x2, y2, p 
[, ls]) 


int 型 


グラ フィ ッ ク 画 面 上 に ボッ クス を 描く 





circle(x, y, 『, P, 


[s, e, [hy]]) 


int 型 


面 上 に 円 扇 型 を 描く 





contrast(i) 


int 型 





と を 表す 





fi(x1, y1, x2, y2, p) 


int 型 





画 
を 設定 する . 明る さ i は 0 が 最も 暗く , 15 
画 


面 上 に 中 を 塗り つぶ し た ボッ クス を 描 





get(x1,。 y1, x2, y2, 
na) 


int 型 
(xy x2,y2), 
配列 名 (na) 


指定 領域 の ドッ トバ パター ン を 配列 に 読み 込む 





home(pa, x, y) 


int 型 





グラ フィ ッ ク 表 示 画 面 の 実 画面 上 の 左上 座標 を 設定 す 
る 
screen 文 を 実行 する と (x, y) が (0, 0) に 再 設 定 さ れる 





hsv(hu, sa, va) 


int 型 int 型 


色相 (hu), 飽和 度 (sa), 明る さ (va) か ら カ ラー コー ド 
を 求め る 
得 ら れる カラ ー コ ー ド は 0 て 65534 まで の 偶数 値 と な る 


カタ 一 ユ ー ド を 返す 





line(x1, y1, x2, y2,p 
[, ls]) 


int 型 


グラ フィ ッ ク 画 面 上 に 直線 を 引く 





paint(x, y, p) 


int 型 








palet(p, c) 


int 型 


パレ ッ ト p に カラ ー コ ー ド c を 設定 する 





point(x, y) 


int 型 int 型 


画 

グラ フィ ッ ク 画 面 上 の 任意 の 単色 領域 内 を 塗り つぶ す 
カ 
画 





グラ フィ ッ ク 画 面 上 の 座標 (x, y) の パレ ッ ト コ ー ド を 返 
す 


70 ウド ーー あず * 





pset(x, y, p) 


int 型 


グラ フィ ッ ク 画 面 上 に ドッ ト を 表示 する 





put(x1, y1。x2, y2, 
na) 


int 型 
(x,y1,x2. y2), 
配列 名 (na) 


get() で 読み 込ん だ パタ ー ン を 画面 上 に 表示 する 





rgb(r, g, b) 


int 型 


赤 (r), 緑 (9), 青 (b) の 強 さ を 0 て 31 で 選び , カラ ー コ 
ー ド を 求め る . カ ラー コー ド は 0 て 65534 の 偶数 値 と な 
る 


あ カラー ョ ヨッ ーー ド 導 返す 





symbol(x, y, st h, V, 
mo, p, an) 


int 型 
%&ymop,an), 
str 型 (St), 
char 型 (h, vw) 


+ 


グラ フィ ッ ク 画 面 上 に 文字 列 を 表示 する 





vpage(i) 


int 型 


グラ フィ ッ ク の 各 ペ ー ジ (0 て 3) の 表示 ON/OFF の 設定 
を する 





window( x1, y1, 
x2, y2) 


int 型 





グラ フィ ッ ク 表 示 画 面 で クリ ッ ピ ング する 座標 の 範囲 
を 設定 する 














wipe() 








グラ フィ ッ ク 関 数 の パラ メー タ 


x1, y1。 x2, y2 





apage () で 指定 され た アク ティ ブ ペ ー ジ を 消去 する 


xy 座標 : 一 32768 て 32767 











パレ ッ ト コ ー ド (65536 色 モー ド で は カラ ー コ ー ド に 等 し い ) : 0 て 15, 0 て 255, 0 て 65536 





ライ ンス タイ ル (line, box) : 0 て 65535 





円 を 描き 始め る 角度 (circle) : 0 て 3607 





円 を 描き 終わ る 劉 





度 (circle) : 0 て 360" 





偏平 率 (circle) : 0 て 32767 [hv く 256… 横 長 椿 円, hyv=256… 真 円 hv>256… 縦 長 棒 円 ] 
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パタ ー ン を 読み 込む 数 値 型 一 炊 元 配 列 名 (get, put) 








表 コ .1B 描画 関連 の 関数 と パラ メー タ 


947 クラ ウィ イッ ジス 


一 グラ フィ ッ ク 画 面 の 構成 

グラ フィ ッ ク 画 面 は , 描画 する た め の 画 面 ( 実 画面 ) と 表示 する た め の 画 面 (表示 画面 ) の 2 つ 
に 分 れ て いま す . 

実 画面 と は , line や paint な どの 関数 で 絵 を 描い た と き , 実際 に 絵 の デ ー タ が 書き 込ま れる 範囲 
に な り ま す . グラ フィ ッ ク 画 面 の 座標 系 の 範囲 は , 論理 的 に は (一 32,768, 一 32,768) - ン (32,767, 
32.767) と な っ て いま す が , これ は , 関数 の 引数 と し て 指定 可能 な 値 (エラ ー に な ら な い 値 ) の 範 
囲 に 過ぎ ませ ん . 実際 に グラ フィ ッ ク VRAM に デー タ が 書き 込ま れる 範囲 は , screen の 第 2 パ 
ラメ ー タ ( 実 画面 。 色 モー ド お よび 使用 可能 な グラ フィ ッ ク ペ ー ジ ) に よっ て 変化 し , 0 な ら ば (0, 
0) て (1.023、1.023), 1 か ら 3 な ら ば (0, 0) て (511, 511) と な り ま す . これ が , 実 画面 の 範囲 
229 。 

表示 画面 は , 実 画面 か ら デ ィ ス プレ イ に 投影 する 領域 と 考え れ ば よい で し ょ う . この 領域 は , 
home 関数 に より 実 画 面 の 範囲 内 で 自由 に 移動 きせ る こと が で きま す . た だ し , 表示 画面 の 大 き さ 
は , screen の 第 1 パラ メー タ (表示 画面 サイ ズ ) に よっ て 規定 され , 0 な ら 256X256, 1 な ら 512※ 
512。 2 なら 768X512 と な り ま す ( 図 3.3). 




































































(一 32768, 一 32768) 


(0.0) XY 論理 座標 系 


(767, 511) 
実 画面 座標 系 


(1023, 1023) 





(32767, 32767) 


図 3.8 各 画 面 の 座標 の 範囲 


画 グラ フィ ッ ク ベ ペー ジ 

実 画面 の 大 き さ が 512X512 で , か つ 色 数 が 16 色 ま た は 256 色 の モー ド の と き に は , グ ラフ ィ ッ 
ク ペ ー ジ を 使う こと が で きま す . グラ フィ ッ ク ペ ー ジ と は ,。 描画 可能 な 面 と いう 意味 で 。 ち ょ う 
ど 複数 の カン バス が 
ジ が と れる か が 決り ます ( 図 3.4). 











な っ て いる よう に と ら え る こと こと が で きま すず す . 画 面 モ ー ド に より 。 何 枚 の ペー 
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① 実 画面 1024X1024 ド ッ ト 16 色 1 画面 モー ド @② 実 画面 512x512 ド ッ ト 16 色 4 画面 
(0.0) 





511 X512 
256 メ 256 


表示 画面 サイ ズ 
768X512 
512X512 
256 X256 





(511, 511) 


③ 実 画面 512X512 256 色 2 画面 
(0,0) 





表示 画面 
(1023, 1023) 512X512 
256X256 


図 34 画面 モー コ ド に よる グラ フィ ッ ク ペ ー ジ 数 (tb 


グラ フィ ッ ク ペ ー ジ が 複数 ある 場合 を . マル チ ペ ー ジ モー ド と 呼び ます . X-BASIC の グラ 
フィ ッ ク 関 数 は , 1 回 で 1 枚 の グラ フィ ッ ク ペ ー ジ に し か 描画 を 行わ な い の で , 描画 を する まえ 
Es 人 S 介 あな みる ゲラ フン ィ タク ベー ジ 1 アク ディ ブ プペ ー ジ と いう ) を 1 枚 だ け 指 定 し な けれ ば な り 
ませ ん (apage 関数 ). し た が っ て 描画 する 際 に は , まず アク ティ ブ ペ ー ジ を 決め た あと , 描画 を 
行う 関数 を 呼び 出し て , 指定 し た ペー ジ に 絵 の デ ー タ を 書き 込む こと に な り ま す . 

ま た, 実際 に 表示 され る ペー ジ を 表示 ペー ジ と いい 描画 の と き と は 異な り , 複数 の 表示 ペー 
ジ を 重ね 合わ せ て 同時 に 表示 する こと が で きま す . この 指定 は , vpage 関数 で 行い ます . た だ し , 
重ね 合わ せ に は 優先 順位 が あり , グラ フィ ッ ク ペ ー ジ 0 が 一 番手 前 に 表示 され , ペー ジ 番 号 の 小 
さい 順に 重ね 合わ され ます . この 優先 順位 は , BASIC の レベ ル で は 変更 で きま せん の で , 表示 さき 
れる 結果 を 考え な が ら 描 画す る 必要 が ある で し ょ う . 























國 カラ ー の 考え か た 

色 の 指定 に は 。 パ レッ ト と いう 考え か た を 使い ます . パレ ッ ト と は , その 名 の と お り 絵 の 具 の 
チュ ー ブ か ら 必 要 な 色 を 取り 出し て お く “ パ レッ ト ? の 役割 を し ます . 1 つの “パレ ッ ト ? (パレ ッ 
トブ ロッ ク ) に は , 絵の具 を 絞り 出せ る 部 分 が いく つか あり , それ ぞ れ の 部 分 に は 番号 (パレ ッ 
トコ ー ド ) が 振ら れ て いま す . 

そし て , 具体 的 な 色 の 指定 は , 絵の具 の 色 番 号 (カラ ー コ ド ) で ば な 。 く mw パシ シッド コー 大 
使っ て 間接 的 に 行い ます . この よう な 指定 方 式 に し て お く と , すでに 塗っ て し まっ た 色 を 変え た 
いと いう よう な 場合 , パ レット コー ド は その まま で も , パレ ッ ト に 絞り 出し て ある 絵の具 の 色 。 
すなわち カラ ー コ ー ド を 変え て や れ ば ぱ , 塗り つぶ し た 領域 の 色 を ふた た び 塗 りな お さ ず に 色 を 変 
える こと が で きま す ( 図 3.5). 











1 ゴワ 


37 - グラ ライ ックス ズ 








絞り 出す こと の で きる 絵の具 の 色 数 は , 当然 パレ ッ ト の 数 に よっ て 決ま り ま す . X68000 に は , 
16 色 モ ー ド , 256 色 モ ー ド , 65,536 色 モ ー ド の 3 つの モー ド が あり ます . 

た だ し , 65,536 色 モ ー ド で は パレ ッ ト コ ー ド と カラ ー コ ー ド は, 同値 と みな され ます . つま り , 
絵の具 を パレ ッ ト に と ら ず , いき な り 紙 の 上 に 絞り 出し て し まう と いう 行為 と 似 て いま す . 























パレ ッ ト ナ ン バ パー 

















パレ ッ ト ブ ロッ ク カラ ー ョ ギド 


図 ヨ .5 パレ ッ ト の 考え か た 


さて , 実際 に 色 を 表現 する 方 法 は , どの よう に な っ て いる の で し ょ うか . 

色 の 表現 に は , 光 の 三原 色 ( 緑 , 赤 , 青 ) と 輝度 (明る さ ) を 組み 合わ せま す . つま り , カラ ー 
コー ド と は , 緑 , 赤 。 青 が それ ぞ れ 5 ビッ ト ず つと 輝 度 (明る さ ) が 1 ビッ ト の 計 16 ビッ ト で 表 
され る 色 の デー タ で す . 具体 的 に は , 16 ビッ ト の うち , bit15--bit11 の 5 ビッ ト が 緑 , bit10-~bit6 
の 5 ビッ ト が 赤 。 bit5--bitl の 5 ビッ ト が 青 , bit0 が 郊 度 を 示し ます . 

カラ ー コ ー ド は , ビッ ト パ タ ー ン か ら 計 算 し て 決定 する の で す が , rgb 関数 や hsv 関数 を 使う 
と , 比較 的 楽に カラ ー コ ー ド を 求め る こと が で きま す . rgh 関数 は , 赤 , 緑 , 青 の そ れ ぞ れ の 明る 

さ を 0 か ら 31 の 範囲 で 調整 し て 任意 の カラ ー コ ー ド を , hsy 関数 は 色相 , 明る さ , 飽和 度 を それ 
ぞ れ 調整 し て カラ ー コ ー ド を 求め る 関数 で す . rgb 関数 と hsy 関数 で 得 ら れる カラ ー コ ー ド は 0 
か ら 65,534 まで の 偶数 コー ド です. 

これ ら の 関数 で 求め た を カラー コー ド に 1 を 加え る こと で , 0 か ら 65,535 の すべ て の カラ ー コ ー 
ド が 求め られ ます . 偶数 の カラ ー コ ー ド は 暗く , 奇数 の カラ ー コ ー ド は 明る く な り ま す . 
































一 描画 と 塗 りつ ぶし 
描画 に は 点 , 直線 , 長方形 , 正 円 , 椿 円 , 円 弧 , 塗り つぶ し が あり ます . この ほか , グラ フィ ッ 
画面 の 一 部 の 範囲 を 配列 に 読み 込ん だ り , 配列 の 中 身 を グラ フィ ッ ク 画 面 に 表示 し た りす る こ 
と が で きま す . 基本 的 な 描画 プリ ミ テ ィ ブ の 使い か た は , それ ほど 難し く あ り ま せん . 

また 。 特徴 的 な の は , グラ フィ ッ ク 画 面 に 文字 を 表示 する こと も で きる 機能 (symbol 関数 ) 
す . この 関数 は , CGC-ROM に は いっ て いる 文字 フォ ント を グラ フィ ッ ク 画 面 に 表示 し 。 か つづ 
き (倍率 )。 表示 色 ,。 回 転 な ど を 指定 する こと が で きま す . リス ト 3.27 で は 90 度 左 に 回 転 きせ 
いま す . 
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リス ト . ら ププ symbGo| 関数 の 使い か た 


1: char h,v,mo,an 

2: str st = "X%6899g" 

3: screen 2,,1,1 

4: h=l:v=1 

5: mo=2 

6: an=9 

7: symbol(395,299, st,h, Y, mo,11,an) 
8: an=1 

9: symbol(259, 259,st,h,y, mo, 11,an) 
19: an=3 

11: symbol(439, 189,st,h, y, mo,11,an) 
12: hs2:v=2 /* 縦横 2 倍 

13: an=9 

14: symbol(265, 129, st,h, y, mo, 11,an) 
15: an=2 

16: symbol(412,329, st,h, y, mo, 11,an) 
17: end 





以上 で ,。 グラ フィック 関連 の 関数 に つい て の お お よそ の 説明 が すん だ わけ で す が , 最後 に これ 
ら を 使っ た か ん た ん な プロ グラ ム 例 を リス ト 3.28 に 示し ます . この サン プル か ら , 描画 の 手順 な 
ど を 理解 し て いた だ ける も の と 思い ます . 








リス ト 紀 . 己 日 グラ フィ ッ ク の 描画 の 例 


int xl,yl,x2,y2 

str s 

ScrTeen 1,1,1,1 

window(9.9,511,511) 

vpage(9):apage(3) 

box(1 盟 ,199,411, 411,7) 

for ij = 1 to 89 
x1 = 1 多 :y1 = 19* j」+ 199 
x2 = 1 凶 + 19* jiy2 = 411 
line(xl,y1,x2,y2,7) 

: next 

・for i = 1 to 39 

13: x1 = 19*j」+ 1 盟 :y1 = 1 角 

14: x2 =411:y2 = 1 久 + 19* ji 

15: line(xl,y1,x2,y2,7) 

16: next 

17: print "Press Any Key..…" 

18: s = inkey$ 

19: while s = " 

29: = jnkey$ 

21: endwhile 

22: vpage(8) 

23: end 


うー の どど コ の の ⑦ ム ぐ パ に (や 一 
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3. ノ .P スプ ライ ト 

表示 画面 モー ド が 768X512 ドッ トモ ー ド 以外 の と き , スプ ライ ト 機 能 を 使う こと が で きま す . 
これ は , グラ フィ ッ ク 画 面 や テキ スト 画面 と は 別に , 16X16 ドッ ト の グラ フィ ッ ク パ ター ン を 表 
示し , 高速 移動 する こと が で きる も の で ,。 ゲー ム 専 用 機 や MSX な ど に も 用 意 き れ て いる も の で 
す . し か し , 使用 で きる 色 数 や パタ ー ン の 数 な ど , 表示 能力 で は X68000 に は お よび ませ ん . 


























一 スプ ライ ト の し くみ 

スプ ライ ト は , 自分 が 定義 し た 図形 パタ ー ン (スプ ライ ト パ タ ー ン ) を , いっ た ん スプ ライ ト 
日 の 領域 に 書き 込ん で お き , ハー ドウ ェ ア に , 表示 位置 を 示す 座標 な どの パラ メー タ を 渡す だ け 
で ディ スプ レイ に 表示 で きる 機能 で す . つま り , スプ ライ ト パ タ ー ン を 移動 する に は , ハー ドウ ェ 
ア に 渡す 座標 を 変更 する だ け で すむ の で , 高速 に 複数 の 図形 を 移動 する こと が で きま す . 

ユー ザー が 定義 で きる スプ ライ ト パ タ ー ン の 大 き さ は 16X16 ドッ ト , 数 は 最大 256 個 で す . な 
お , あと で 解説 する バッ ク グ ラン ド 画 面 の た め の ス プラ イト パタ ー ン と し て , 8X8 ドット の 大 き 
さ で も 定義 で きま す . 

各 ス プラ イト パタ ー ン に は , パ ター ン 番 号 と いう 0 か ら 255 まで の 数 値 が 割り 当て られ て お り , 
各 パ ター ン の 管理 に は この パタ ー ン 番号 が 利用 され ます . 

スプ ライ ト パ タ ー ン の 色 は , 画面 上 の 1 ドッ ト を 4 ビッ ト の 大 き さ の パレ ッ ト コ ー ド で 表現 さ 
れ ま す . 1 つの パタ ー ン で は 同時 に 16 色 し か 表示 で きま せん が , パレ ッ ト コ ー ド と カラ ー コ ー ド 
の 対応 を 変更 する こと に より , 65,536 色 か ら 色 を 選ぶ こと が で きま す . 

スプ ライ ト の パレ ッ ト の 構造 は 。 テキ スト や グラ フィ ッ ク の それ と は 少し 違い ます . テキ スト 
や グラ フィ ッ ク の パレ ッ ト に は , パレ ッ ト コ ー ド と カラ ー コ ー ド の 対応 表 で ある パレ ッ ト ブ ロッ 
ク が , それ ぞ れ に 1 つ ず つ し か 存在 し ませ ん で し た が , スプ ライ ト の パレ ッ ト に は , この パレ ッ 
トブ ロッ ク が 15 個 も 用 意 き さき れ て いま す . そし て , スプ ライ ト パ タ ー ン を 表示 する 場合 に は , どの 
パレ ッ ト ブ ロッ ク を 使用 する か を 指定 で きる の で , 1 画面 に は 16X15=240 色 が 同時 に 表示 で き 
る わけ で す (た だ し , どの パレ ッ ト ブ ロッ ク で も 。 パ レッ トコ ー ド 0 に は か な ら ず カラ ー コ ー ド 
0 を 割り 当て る 必要 が ある ). 






























































還 スプ ライ ト パ タ ー ン の 表示 
スプ ライ ト 画 面 は 。 スプ ライ トバ パ ター ン の み を 表示 する た め に 用 意 さ れ た 画面 で .。 テキ スト 


面 や グラ フィ ッ ク 画 面 と は 独立 し て いま す . スプ ライ ト 画 面 は 。 プレ ー ン と 呼ば れる 128 枚 の 
面 で 構成 され て お り , 1 つの プレ ー ン に は 1 つの スプ ライ ト パ タ ー ン だ け を 表示 する よう に な 
て いま す . この 128 枚 の プレ ー ン に は , 0 か ら 127 まで の 番号 (プレ ー ン 番号 ) が つけ られ て ちり 


番号 の 小さ い ほ うか ら 手 前 に 表示 され る よう に 優先 順位 が 決ま っ て いま す . た だ し 。 ハ ー ド ウェ 
ア の 制約 に より , ス プラ イト パタ ー ン を 33 個 以上 横 に 並べ る と , 番号 の 小さ きい プレ ー ン より 32 個 























購 周 














J 














ュ 




















143 


3 章 X-BASIC プロ グラ ミン グ ガ イド 


だ けし か 表示 され ませ ん . 
な お , スプ ライ ト 画 面 と 他 の 画面 と の 優先 順位 は 図 3.6 の よう に な っ て いま す . 


共 こ | 


バッ ク グ ラン ド 0 




















優先 度 = 0 優先 度 三 1 


テキ スト 






スプ ライ ト は 表示 され な い . 





優先 度 2 優先 度 = 3 


引 


図 3.B スプ ライ ト の 優先 順位 






バッ ク グ ラン ド 0 


一 スプ ライ ト 関 数 


ペ -BASIC で は スプ ライ トバ パ ター ン の 表示 を か ん た ん に 行え を る よう に する た め の 関 数 が 用 意 さ 
れ て いま す ( 表 3.17). 

















スプ ライ ト 関 数 
戻り 値 
char 型 (pg), 了 テキ スト ペー ジ pg を , パタ ー ン デー タ pd で 埋め つく 
bg fl(pg, pd) int 型 (pd) int 型 す 
ーー ーー さる 所 空 - 座 樽 か に V = レー デーー 
bg get(pg, x, y) Char 型 int 弄 ま 衝 ジ pg の 指定 され た 座標 か ら パ ター ン デ 読込 み デ ー タ 
ロ ル 
char 型 の っ 本 こま 
1 テキ スト ペー ジ pg の 指定 され た 座標 に パタ ー ン デー タ 常に 
bg put(pg, x, y, pd) 1 int 型 pd を 設定 する 常に 0 
者 ! - 
| jm 型 | バッ クラ ンド b の スク ロー ル 座 林 を 設定 する 常に 0 
り に コ か 
bg set(b, [pg] バ パック グラ ンド b へ の テキ スト ペー ジ pg の 割り 当て と 
し [md char 型 int 型 | 表示 の 設定 を 行う . 表 示 画 面 サイ ズ が 512x512 ドッ ト | 常に 0 


の 場合 は バッ ク グ ラン ド 1 は 表示 され な い 


パッ ク グ ラン ド b の 状態 を 読み 出す . 表示 画面 サイ ズ 
が 256x256 の 場合 は X-Y 座標 に は 0511 の 値 を 返 | .。、 

















型 int 弄 読込 み デ ー 
SB "| す 表示 画面 サイ ズ が 512X512 の 場合 は 座標 に は 0 | 時 込み デー タ 
て 1023 の 値 を 返す 
cd1, cd2 で 指定 し た 範囲 の スプ ライ ト パ タ ー ン を 初期 
マ \ 指 空 ー 会 ここ aa 
Sp Clr char 型 int 弄 化す る . cd1 だ けが 指定 され た 場合 は パタ ー ン コー ド cd1 


([cd1[, cd2]]) の パタ ー ン の み が 初 期 化 され , 引数 を 両方 省略 し た 場 


合 は 全 パ ター ン (0 へ 255) が 初期 化 さ れる 





型 
sp color(p, c[, pb]) 1 m), ーー | スプ ライ トバ レット の 色 を 指定 する 




















3:7。 プラ ィ ッ 誠 多 


戻り 値 の 意味 


スプ ライ トバ パタ ー ン を 定義 すむ する. パタ ー ン は 16X16 ド 

ッ ト で , 1 ドッ ト に つき 配列 の 1 要素 を 使う . 0 番目 の 

0 1 要素 が パター ン の 左上 端 の ドッ ト を , 15 番目 の 要素 が 
RS 2 右上 端 の ドッ ト を 定義 する .1 ドッ ト の デー タ は 4 ピッ 

ト で その ドッ ト の パレ ッ ト コ ー ド に な る 

に スプ ライ ト 画 面 の 表示 を ON/OFF する 

5 人 0 Ceh=0 : 骨 ポ し な い 。1: 表示 する ) 


sp init() 還 スプ ライ ト 画 面 の 初期 化 を する 


スプ ライ トバ パ ター ン を プレ ー ン に 登録 し 表示 位置 を 決 
Ma 1 め る . パタ ー ン コー ド を 指定 する と , その スプ ライ ト 
9 ん は 表示 ON に な る 




















s1 か ら s2 で 指定 し た プレ ー ン 番号 の 範囲 の スプ ライ ト 
の 表示 を OFF に する . s2 を 省略 し た 場合 は S1 で 指定 
Sp:OIKINIkM2UD 1 邊 し た プレ ー ン の スプ ライ ト だ け OFF に な る . また 。 両 





方 省略 し た 場合 は 全 ス プラ イト の 表示 を OFF に する 
s1 か ら s2 で 指定 し た プレ ー ン 番号 の 範囲 の スプ ライ ト 
の 表示 を ON に する .s2 を 省略 し た 場合 は s1 で 指定 し 
sP_pn([sl[ra2]]) | ohar 型 た プレ ー ン の スプ ライ ト だ け ON に な る . また, 両方 省 
略し た 場合 は 全 ス プラ イト の 表示 を ON に する 


スプ ライ ト パ タ ー ン デー タ を , 指定 し た 配列 に 書き 込 
む . cd は パタ ー ン コー ド (0 て 255), ca は 要素 数 256 
char 型 (cd, ps), の 配列 で , パタ ー ン は , 16x16 ドッ ト で , 1 ドッ ト に つ 
sp pat(cd, ca[, ps]) | char(64, 255) き 配 列 の 1 要素 を 使用 する .0 番 目 の 要素 が パタ ー ン の 
配列 名 (ca) 左上 端 の ドッ ト , 15 番目 の 要素 が 右上 端 の ドッ ト に 対 
応 し て いる .1 ドッ ト の デー タ は 4 ビ ピット で , この 値 が 
その ドッ ト の パレ ッ ト コ ー ド と な る 


























人 2 int 型 || スプ ライ ト の スク ロー ル 座 標 を 設定 する 


sp stat(s, md) char 型 int 型 指定 し た スプ ライ ト の 状態 を 読み 出す 


























スプ ライ ト 関 数 の パラ メー タ 


cd, cd1, cd2 パタ ー ン コー ド (0 て 255) 
PD スプ ライ ト の パレ ッ ト コ ー ド (0^15) 








Cc カラ ー コ ー ド (0 へ 65535) 
ca 要素 数 256 の char 型 の 配列 
スプ ライ ト を 表示 し た い プ レー ン 番 号 
表示 位置 (-16 て 1007) 
表 .1 プ スプ ライ ト 関 数 と バッ ク グ ラン ド 関 数 , パラ メー タ の 意味 

















まず ,。 ス プラ イト パタ ー ン を 表示 する た め に は , screen を 使っ て スク リー ン モ ー ド を 512※X512 
ドッ トモ ー ド か 256X256 ドッ トモ ー ド に 設定 し ます . 

次 に sp init 関数 と sp clr 関数 を 使っ て , スプ ライ ト 画 面 や パタ ー ン を 初期 化し ます . sp cr 関 
数 の 引数 を 省略 し て 実行 する と ,。 すべ て の スプ ライ トバ パ ター ン が 初期 化 さ れ ま す . 


























スプ ライ ト パ タ ー ン の 定義 は sp_def 関数 で 行い ます . 定義 で きる パタ ー ン の サイ ズ は , 16※16 
ドッ ト と 8X8 ド ッ ト の 2 種類 で す が , 通常 の スプ ライ ト パ タ ー ン は , 16X16 ドッ ト を 使用 し 。8※ 
8 ドッ ト は バッ ク グ ラン ド を 構成 する パタ ー ン を 定義 する 場合 に だ け 使 用 し ます . パタ ー ン の 定 
義 内 容 は , char 型 の 一 次 元 配列 に 代入 し ます . 配列 の 要素 数 は , パタ ー ン の 大 きき が 16X16 ドッ 
ト の と き は 256 個 、 8X8 ドッ ト の と き は 64 個 必 要 で す . 
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配列 の 内 容 は , パタ ー ン の 大 きき が 16X16 ドッ ト の と き を 例 に と る と , 配列 の 1 番目 の 要素 は 
座標 (0, 0) の パレ ッ ト コ ー ド を 示し , 2 番目 の 要素 は 座標 (1, 0)、 …, 17 番目 の 要素 は 座標 (0, 
1), …, 255 番目 の 要素 は 座標 (15。 15) に 対応 し て いま す (パレ ッ ト コ ー ド は 0 か ら 15 まで の 
値 ). リ スト 3.17 の 例 で は , パタ ー ン 番号 16 の スプ ライ ト パ タ ー ン を 。, 配列 ca の 内 容 で 定義 し て 
いま す . 

次 に パレ ッ ト ブ ロッ ク や パレ ッ ト を 定義 (sp color 関数 ) し ます . リス ト 3.29 で は , パレ ッ ト 
プ ブロック 3 番 を 使用 し 。 パレ ッ ト コ ー ド i 番 の パレ ッ ト に カラ ー コ ー ド i を 割り 当て て いま す . 

これ ら が 定義 で きた ら , sp_on 関数 を 使っ て 表示 を ON に する プレ ー ン を 決め ます . リス ト 3. 
29 で は プレ ー ン 16 を ON に し , sp _disp 関数 を 使っ て スプ ライ ト 画 面 を 表示 し ます . 

スプ ライ ト パ タ ー ン を 動か す に は ,sp_move 関数 と sp set 関数 の 2 つ で 行い ます .sp move 関 
数 は , スプ ライ ト パ タ ー ン の 表示 位置 を 変え 0 る だけ で す が , sp set 関数 は , 表示 位置 を 変え た る と 
同時 に 垂直 水平 反転 機能 ・. パ レット ブロ ッ ク ,。 パ レッ トコ ー ド , 表示 する プレ ー ン の 設定 を 行 
いま す . 色 を 変え な が ら ス プラ イト パタ ー ン を 移動 さき せる と き は 後者 を 使う こと に な る で し ょ う . 
いずれ の 場合 も , 表示 位置 は スプ ライ ト 画 面 上 の 座標 (XK, Y と も に 一 161007 の 範囲 ) で 指定 
し ます . リス ト 3.17 の 例 で は , プレ ー ン 16 に パタ ー ン 16 を 割り 当て 。 マウ ス で 指し 示さ れ た と 
ころ に パレ ッ ト ブ ロッ ク 3 番 を 使用 し , 反転 せ ず に 表示 し ます . 











リス ト 選 . 巳 スプ ライ ト の 使用 例 


nt 5 


2: dim char ca(255) = (9 の.9.9.9.9.9.9.9,9 
9 1.9.91.9. 1 1 1.9.,1.9 
4: 2.9, 2 2.9,9,2,9,2,9,2,9,8 
5 9 93, 3.3.3.9.3,9.3.9,9,9 
6: 9 1.2.9.4.9. 4,4,9,, 4,9,2, 1,9 
が 3.9,5, 5,5,.5,9,3,9,9,9 
8: 9,2.9,,9,6,9,9,6,9,9,9,2,9,6 
9 が 1.9.3,4.5,9,7,7,9,5,4,3,, 1 
1: 1.9.3.4.5,9.7,7,5,4,3, 1.9 
11: 多 25556, 叶 69.9,.9,2,9,9 
12: 9 9,3,9,5,9,5,5,9,5,9, 3 
上 95 9 1.2.9,4.9, 多 4,4,9,9, 4,9,2,1,9 
14: 9 の 9.3.9,3,9,3,3..3,4 3 
155 9 2.9. 2 2 9,2,9,2,9,2,9.9 
16: 1 1.9.9, 1,1.9,9,1.9,9,1,9 
IM 9 9 9.9.9.9.9,9.9,.9,,9 
18: } 

19:-sefFeen 111。 も 1 
29: mouse(⑳ の 
21: sp_init():sp_clr() 
22: sp_def(16,ca) 

23: for i=to7 
24 sp_color(i,&B11 吸 吸 9999999 * j+ &HC7,3) 
25: next 
26: sp_on(16) 
27: sp_disp(1) 
28: while 1 

29* mSPOS(X,y) 

3 上 9: sp_set(16,x,y, &H31 の 
31: endwhile 


ーーーーーーーーーーーーー 一 
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一 バッ ク グ ラン ド 

バッ ク グ ラン ド と は , 背景 画 向け の スク リー ン で 。 グラ フィ ッ ク 画 面 や テキ スト 画面 と は 独立 
し た バッ ク グ ラン ド 画 面 を 持っ て いま す . この 画面 に は , スプ ライ ト 画 面 で 使用 する スプ ライ ト 
パタ ー ン を 並べ て 貼り つけ ます . 1 つの パタ ー ン を 1 ドッ ト ご と に 移動 する を こと は で きま せん が , 
画面 全体 を ハー ドウ ェ ア で スク ロー ル で きる の で , 背景 の 絵 を 滑ら か に 移動 きせ る こと が で きま 
す . 

バッ ク グ ラン ド は スプ ライ ト 同 様 に , 表示 画面 モー ド が 512xX512 ドッ ト と 256X256 ドッ ト の 
と き 使 用 で きま す . バッ ク グ ラン ド の 使用 可能 面 数 と 定義 可能 な スプ ライ ト パ タ ー ン の 最大 値 は 


表 3.18 の よう に な っ て いま す . 

6 スプ ライ トバ パタ ー ン | バッ ク グ ラン ド を 
0 256 
16X16 ドット 


512X512 ドッ ト | 





使用 可能 な 
パタ ー ン 番号 











192 














256x256 ドッ ト 8X 8 ドッ ト 





表 .1 日 バッ ク グ ラン ド 面 数 と スプ ライ ト パ タ ー ン 数 





き て , バッ ク グ ラン ド は グラ フィ ッ ク と 同様 に 描画 系 と 表示 系 の 2 つ に 分 れ て いま す . ここ で 
は , 描画 系 を テキ スト ペー ジ , 表示 系 を パッ ク グ ラン ド ペ ー ジ と 呼ぶ こと に し ます ( 図 3.7). 





256 メ 256 モ ー ド で は 8 X8 4 _ 0 
512X512 モ ー ド で は 16x16 ド ッ ト 」 の スプ ライ トバ ターン を 
64xX64 の マス 目 に 貼り つけ て いく こと が で きる 

63 


1 枚 の バッ ク グ ラン ド 面 


63 
表示 開始 位置 を 任意 に 設定 する こと で 
スク ロー ル が で きる 
BG( バ ッ ク グ ラウ ンド )0, BG1 と いう よう に , バ パッ ク グ ラン ド は 同じ も の が 2 画面 持て る 
た だ し , 512X512 モ ー ド で は , BG1 は 表示 で きず , 同時 に 2 画面 は 使え な い 





d.Z ノ テキ スト ペー ジ と バッ ク グ ラン ド ペ ー ジ 


ん 
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テキ スト ペー ジ に は , バッ ク グ ラン ド 画 面 に 表示 する スプ ライ ト パ タ ー ン の パタ ー ン 番号 や 
パタ ー ン の 反転 表示 フラ グ , 使用 する パレ ッ ト ブ ロッ ク 番 号 を 格納 し ます . 表 3.18 に ある よう に 
表示 画面 モー ド に より 最大 2 ペー ジ ま で と る こと が で きる の で , 1 面 ど と に テキ スト ペー ジ 0, テ 
キス トペ ー ジ 1 と 呼ぶ こと に し ます . 表示 画面 モー ド が 512X512 ドッ ト の と き は , テキ スト ペー 
ジ 0 し か 使用 で きま せん . 

テキ スト ペー ジ の 構造 で す が , 図 3.7 に 示し て ある よう に , 双 -Y 座標 系 が 割り つけ られ て お り , 
その 範囲 は (0, 0) て (63, 63) と な っ て いま す . 注意 す ベ べき こと は , この 座標 が 指し て いる も の 
は 1 ドッ ト の 点 で は な く , 16X16 ドッ ト か 8X8 ド ッ ト の スプ ライ ト パ タ ー ン で ある と いう こと 
or 

テキ スト ペー ジ に 貼り つけ られ た スプ ライ ト は , バッ ク グ ラン ド ペ ー ジ に 投影 し て ディ スプ レ 
イ に 表示 され ます . テキ スト ペー ジ は パタ ー ン 単位 で 設定 され ます が , バッ ク グ ラン ド ペ ー ジ は , 
テキ スト ペー ジ 内 に 投影 する 位置 を ドッ ト 単 位 で 指定 で きま す . また , バッ ク グ ラン ド ペ ー ジ も 
表示 画面 モー ド に より 最大 2 ペー ジ ま で あり , 重ね て 表示 で きま す . この 2 ペー ジ を バッ ク グ ラ 
ンド ペー ジ 0, バッ ク グ ラン ド ペ ー ジ 1 と 呼ぶ こと に し ます . 重ね 合わ せ の 優先 順位 は 。 バッ ク グ 
ラン ド ペ ー ジ 0 の ほう が 手前 に 表示 され ます . 表示 画面 モー ド が 512X512 ドッ ト の と き は , バッ 
ク グ ラン ド ペ ー ジ 0 し か 使用 で きま せん . 

また , バッ ク グ ラン ド 画 面 は ,。 スプ ライ ト 画 面 と の 重ね 合わ せ て , 図 3.8 の よう に 表示 する こ 
と も で きま す 。 









































バッ ク グ ラン ド 1 





図 ヨ . ヨ バッ ク グ ラン ド の 表示 


1] コ 8 
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一 バッ ク グ ラン ド 関 数 

で は , リス ト 3.30 を 例 に と っ て , バッ ク グ ラン ド を 操作 する 関数 の 使用 方 法 を 解説 し ます . 

バッ ク グ ラン ド の 表示 も スプ ライ ト の 場合 と 同様 に .。 まず, 表示 画面 モー ド を 512X512。 ま た 
は 256X256 ドッ トモ ー ド に し ます . バッ ク グ ラン ド が 2 面 必要 な と き は , 256X256 ドッ トモ ー ド 
に し ます . そし て , 初期 化 (sp_init 関数 , sp_clr 関数 ) を 行い , sp_def 関数 で パタ ー ン を 定義 し 
ます . この と まき 定義 むす る パタ ー ン の 大 き さ が 8X8 ドット の 場合 は , sp_def 関数 の 第 3 パラ メー タ 
を 0 に する こと を 忘れ な いで くだ さい . 

テキ スト ペー ジ に パタ ー ン を 設定 する た め に は , bg fil 関数 か bg_put 関数 を 使い ます . bg fill 
関数 は 1 個 の パタ ー ン で テキ スト ペー ジ を 埋め つく し , bg put 関数 は テキ スト ペー ジ 内 の 指定 き 
れ た 座標 に パタ ー ン を 設定 し ます . リス ト 3.30 で は , bg put 関数 を 使っ て テキ スト ペー ジ 0 の 
(32。 32) に 。 パ レッ トブ ロッ ク 3 を 使用 し て パタ ー ン 番号 16 の スプ ライ ト パ タ ー ン を 上 下 反 転 
表示 する よう 設定 し て いま す . 

次 に sp_disp 関数 を 使っ て スプ ライ ト 画 面 を 表示 し ます . バ ッ ク グ ラン ド を 使用 する と き に も 
sp disp 関数 で スプ ライ ト 表 示 を ON に し な けれ ば な ら な いこ と に 注意 し て くだ さい . 























リス ト 3. コ (バック グラ ンド の 使用 例 


1: int ji,Xy 

2: dim char ca(255) = (8. 時 9.9.9.9.9.9..9,9 
3: 9 1.99.1.9114 多 1 時 1.9 
4: 9 9 2. 2 2 9.2,9,2,9,2,9,9 
5 9.3,9,3.9,3,3,9,3,9, 3,9,9,9 
6: 9 1. 29 4 4, 4 4, 2,1,9 
7: 9 3,9.5,9,5,5,, 5 3.9,9,9 
8: 2 9.6.96.9..2,9.9 
9: 1.9.3,4,5,9,7,7,9,5,4,3,9,1,9 
19: 19.3.4.5,7,7, 5,4.3. 1.9 
11: 中 996.9 多 6 2.8,9 
12: 9 9. 3.9,5,,5,5,9,5,9,3,9,9,9 
13: 1.2.9.4.9.4, 4 4 2,1.0 
14: 9 9, 3,9,3.9,3,3,9,3.9,3,9,9,9 
15: 9 2, 2 2 9,2.9,2.9, 2.9,9 
16: 9 1.9.9,1.9,9,1,1,9,9,1.9,9,1.9 
町 98. 9. 9.9, 9 9,,9 
18: 

19: screen 1,1,1,1 

29: mouse( の 

21: sp_init():sp_clr() 

22: sp_def(16,ca) 

23: for i=Mto7 

24: sp_color(i,&B11 昧 吸 9 * i+ &HC7,3) 

25: next 

26: bg_fil1(8,&H831 め の 

27: sp_disp(1) 

28: bg_set(9.9,1) 

29: Wile 1 

3 mSpoS(X,y) 

3 bg_scrol1(9,.x,y) 

32: endwhile 

33: end 
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そし て , bg set 関数 を 用 いて ,。 テキ スト ペー ジ を バッ ク グ ラン ド ペ ー ジ に 割り 当て て 表示 し ま 
す . リス ト 3.30 で は , テキ スト ペー ジ 0 を バッ ク グ ラン ド ペ ー ジ 0 に 割り 当て , 表示 ON に 設定 
ゆる ぬ 計 すく 

最後 に bg_scroll 関数 を 使っ て バッ ク グ ラン ド を 動か し ます . bg scroll 関数 は バッ ク グ ラン ド 
ペー ジ の 原点 (ディ スプ レイ の 左上 端 ) を テキ スト ペー ジ の どの 位置 に 対応 させ る か を 設定 する 
関数 で す . リス ト 3.30 で は マウ ス の 指し 示す 位置 に 。 テキ スト ペー ジ に 設定 し た スプ ライ ト パ 
ター ン が 表示 され る よう , 座標 を 計算 し て スク ロー ル さ せ て いま す . 


一 スプ ライ ト パ タ ー ン ・ デ ー タ の 読込 み 

定義 きれ た スプ ライ ト パ タ ー ン の 図形 デー タ は , sp _pat 関数 を 使っ て 配列 に 読み 込む こと が で 
きま す . 図形 デー タ は , sp _def 関数 で 定義 する と き と 同 じ よ うに char 型 の 一 次 元 配列 に 格納 され 
ます . また , スプ ライ ト や バッ ク グ ラン ド の 状態 は . それ ぞ れ sp stat 関数 , bg stat 関数 を 使っ 
て 読み 出し ます 。 

sp_stat 関数 は , X 座標 。Y 座標 。 パ ター ン デ ー タ , 優先 度 の な か か ら 設 定 状態 を 知り た いも の 
を 1 つと , プレ ー ン 番号 を 引数 と し て 渡す と , 戻り 値 と し て 読み 取っ た 値 を 返し ます . bg stat 関 
数 も , バッ ク グ ラン ド の 双 -Y 座標 , 割り 当て られ て いる テキ ス トペ ー ジ 番号 , バッ ク グ ラン ド の 
表示 ン 非 表示 フラ グ の 内 で 設定 状態 を 知り た いも の を 1 つと , バッ ク グ ラン ド ペ ー ジ 番号 を 引数 
と し て 渡す と , 戻り 値 と し て 読み 取っ た 値 を 返し ます . 

バッ ク グ ラン ド の テキ スト ペー ジ の 状態 は , bg_get 関数 で 読み 込み ます . bg get 関数 は テキ ス 
トペ ー ジ 番号 と テキ スト ペー ジ 内 の 座標 を 指定 する と , 指定 され た 座標 の パタ ー ン デー タ を 返し 
ます . この 関数 に より , テキ スト ペー ジ に 貼り つけ られ た パタ ー ン の 情報 を 得る こと が で きま す . 

スプ ライ ト や バッ ク グ ラン ド の パタ ー ン デー タ を 作る た め に は , 付属 の シス テム ディ スク に は 
いっ て いる “defsptool.bas? と いう ツー ル を 使っ て 行う と 便利 で し ょ う . この ツー ル で は 。 パ ター 
ン の 一 覧 , パタ ー ン の 作成 。 パ レット ブロ ッ ク の 選択 , 色 の 作成 が 非常 に か ん た ん に で きま す . 
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3.8。 オー デ 外 オ 


ヨ . 避 オー ディ オ 


X_-BASIC で は 。 ADPCM に よる 音声 入出 力 と , FM 音源 に よる 音楽 演奏 が で きま す . ADPCM 
は , 音声 を デジ タル 変換 し て 録音 や 再生 を 行い , FM 音源 は , シン セ サ イ ザ と 同様 に 。 さ ま ざ ま な 
音色 を 作成 し て 演奏 を する こと が で きま す . ADPCM や FM 音源 の 音声 信号 は , X68000 本 体内 蔵 
の スピ ー カ また は オー ディ オ 出 力 端子 に 出力 され ます . 




















3.8.1 _ ADPCM 


X68000 に は , 音声 を デジ タル 変換 し て メモ リ に 記録 し た り , 逆 に メモ リ 上 の デー タ を アナ ログ 
変換 し て 音声 を 出力 する ADPCM 機能 が あり ます . CD( コ ン パ クト ディ スク ) な ど に 使わ れ て い 
る PCM と 比べ る と サン プリ ング 周波 数 が 同じ で も 音質 は 劣り ます が , メモ リ 消 費 の 点 で は 
ADPCM は PCM より も 少な い 容 量 で すみ ます . ADPCM 関連 の 関数 ( 表 3.19) は 標準 添付 の 
外部 関数 ファ イル AUDIO.FNC に 収め られ て いま す . 











指定 され た 配列 の ADPCM デー タ を 再生 する . na は ADPCM 

a play(na, ci 配列 名 (na), デー タ を 格納 し て いる 数 値 型 一 次 元 配列 名 , cl は サン プリ 
md[, 日 ) int 型 (cl md, D) ング 周波 数 の 種類 を 表す 数 値 , md は 出力 モー ド を 表す 数 

値 , | は 再生 する 長 さ で ある 

指定 され た 配列 に ADPCM デー タ を 録音 する . na は ADPCM 

デー タ を 格納 する 数 値 型 一 次 元 配 列 名 , cl は サン プリ ング 

周波 数 の 種類 を 表す 数 値 で ある 





配列 名 (na), 
int 型 (cl) 


a rec(na, cl) 














表 3.1 ヨ ADPOM 関数 


ADPCM で デジ タル 変換 され た 音声 デー タ は , その 直前 に 変換 され た デー タ と の 差分 を と られ 
( 図 3.9),。 さら に 加工 され て 4 ビッ ト の 大 き さ に まとめ られ ます . この 4 ビッ ト の デー タ 1 個 を 
ADPCM デー タ と 呼ぶ こと に し ます .。 ADPCM デー タ の うち 下位 3 ビッ ト が 絶対 値 を ,。 上 位 1 
ビッ ト が 極性 を 表し て いる の で , 1 つの ADPCM デー タ の 表現 可能 な 数 値 の 範囲 は ー7 か ら +7 
の 幅 に な り ま す . 

X-BASIC で は , ADPCM デー タ を 配列 に 格納 する の で , 何 秒間 録音 , 再生 する か に よっ て 配 
列 の 要素 数 を 設定 し ます . どん な 型 の 配列 変数 に で も , ADPCM デー タ は すき 間 な く 詰 め て 格納 
され る の で ,。 char 型 の 配列 な ら 1 要素 で 2 個 , int 型 な ら 1 要素 で 8 個 , float 型 な ら 1 要素 で 16 
個 の ADPCM デー タ が 蓄え られ ます . 

音 に 必要 な メモ リ 容 量 は 表 3.20 の と お り で す . 
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PCM デ ー タ 


1 交 


ADPCM デ ー タ 
a_play( ) 





d. ADPOM の 構成 


サン プリ ング 周波 数 | 必要 な デー タ 量 
3.9kHz 1950 バイ ト 
5.2kHz 2600 バイ ト 
7.8kHz 3900 バイ ト 

10.4kHz 5200 バイ ト 
15.6kHz 7800 バイ ト 




















表 3.B ロ D サン プリ ング 周波 数 と 1 秒 当 た り の デー タ 量 


た と えば , char 型 の 配列 を 使っ て サン プリ ング 周波 数 15.6kHz で 20 秒間 録音 する 場合 , 7, 
800X20 三 156,000 個 の 配列 要素 が 必要 と な り ま す . 


う .. 己 FM 音源 

FM 音源 は サイ ン 流 を 合成 し た り 周 波数 変調 を か けた り し て 音 を 作る 音源 で , 同時 に 8 オク 
ター ブ の 範囲 で 8 音 ま で 出力 する こと が で きま す . 音 を 出す た め に は いろ いろ と デー タ を 用 意 し 
な けれ ば な ら な い の で 面倒 で す . し か し , 外部 関数 ファ イル MUSIC.FNC に は いっ て いる FM 音 
源 制御 用 の 関数 ( 表 3.21) と MML を 使え ば 比較 的 か ん た ん に 音楽 を 演奏 で きま す . 












































m alloc(t s) 


char 型 (⑪, 
int 型 ($) 


int 型 


トラ ッ ク バ ッ フ ァ を 確保 する . トラ ッ ク バ ッ フ ァ は X- 
BASIC が 確保 し た フリ ー エ リア と は 別に 確保 され る . 
確保 する と 同時 に トラ ッ ク バ ッ フ ァ は クリ ア さ れる 


3.8 オー ディ オ 


正常 な 場合 は 0 を , エラ ー の 
場合 は 1 を 返す 





m assign(c, 1) 


char 型 


FM 音源 の 各 チ ャ ン ネ ル に トラ ッ ク を 割り 当て る . 複数 
の チャ ン ネ ル に 同一 の トラ ッ ク を 割り 当て る と , それ 
ぞ れ 同じ 楽譜 を 演奏 する . また , 複数 の トラ ッ ク を 1 つ 
の チャ ン ネ ル に 割り 当て る と 最も 新しく 割り 当て た ト 
ラッ ク の デー タ が 演奏 され る し 
デフ ォ ル ト で は 1 か ら 8 チ ャ ン ネ ル が ,1 か ら 8 ト ラッ 
ク に 対応 し て いる 


正常 な 場合 は 0 を , エラ ー の 
場合 は 1 を 返す 





m cont([c1],[c2], 
[c3], [c4], [c5], 
[ce], [c7], [c8]) 


char 型 


int 型 


c1 か ら c8 で 指定 され た チャ ン ネ ル に お いて , m stop() 
で 一 時 停止 し た 演奏 を 再開 する . チャ ン ネ ル を すべ て 
省略 する と , 現在 一 時 停止 し て いる すべ て の チャ ン ネ 
ル の 演奏 を 再開 する 


正常 な 場合 は 0 を , エラ ー の 
場合 は 1 を 返す 








m free(1) 


char 型 


int 型 


| 指定 され た トラ ッ ク の 残り バイ ト 数 を 返す 


残り の バイ ト 数 を 返す 





m init() 


FM 音源 (トラ ッ ク デ ー タ , 音色 ) を 初期 化す る 





m play([c1], [c2], 
[c3], [c4], [c5], 
[c6], [c7], [c8]) 


char 型 


int 型 


c1 か ら C8 で 指定 され た チャ ン ネ ル に 割り 当て られ た ト 
ラッ ク デ ー タ を 演奏 する 


正常 な 場合 は 0 を , エラ ー の 
場合 は 1 を 返す 





m stat(c) 


char 型 


指定 され た チャ ン ネ ル が 演奏 中 か どう か 調べ る . 返さ 
れる バイ ト 値 の ビッ ト 0 か ら ビ ピット 7 が チャ ン ネ ル 1 か 
ら 8 に 対応 し て いて , 1 な ら ば 演奏 中 , 0 な ら ば 停止 中 
を 表す 


演奏 中 の 場合 は 1, そう で な け 
れ ば 0 を 返す . エラ ー の 場合 
は 1 を 返す 





m stop([c1], [c2], 
[c3], [c4], [c5], 
[ce], Lc7], [c8]) 


char 型 


int 型 


c1 か ら c8 で 指定 され た チャ ン ネ ル の 演奏 を 一 時 停止 す 
る 

チャ ン ネ ル を すべ て 省略 する と , 全 チ ャ ン ネ ル の 演奏 
を 一 時 停止 する 


正常 な 場合 は 0 を 。 エ ラー の 
場合 は 1 を 返す 





m tempo(te) 


char 型 


int 型 


テン ポ を 設定 する (0 ミ te ミ 32) 


正常 の 場合 は 0 を , エラ ー の 
場合 は 1 を 返す 





m trk(t st) 


char 型 (⑪, 
str 型 (st) 


int 型 


MML に よる 楽譜 デー タ を 指定 され た トラ ッ ク に 書き 込 
む 


正常 な 場合 は 0 を , エラ ー の 
場合 は -1 を 返す 





m vget(vo, ca) 


char 型 (vo), 
char 型 (4,10) 
配列 名 (ca) 


int 型 


音色 デー タ を 配列 na に 読み 込む 


正常 な 場合 は 0 を , エラ ー の 
場合 は 1 を 返す 





m vset(vo, ca) 


弄 MML に よる FM 音源 の 演奏 

人 間 が 楽器 で 演奏 する と き は 楽譜 を 見 て 演奏 し ます . これ を プロ グラ ム で 書け る よう に し た の 
が MML (Music Macro Language) と 呼ば れる も の で す . MML の 記号 に は 表 3.22 の よう な 
も の が あり ます . これ は , str 型 変数 に 文字 列 と し て 格納 し , それ を 引数 と し て FM 音源 を 操作 す 
る 関数 に 渡し ます . 








char 型 (vo), 
char 型 (4,10) 
配列 名 (ca) 








A, B, C.… は ハハ 長調 の ラ , 





配列 に 設定 され て いる 音色 デー タ を 指定 され た 音色 番 
号 の メモ リバ ッ フ ァ に 登録 する 





表 コ . 己 ] FM 音源 関数 


シ , 





正常 な 場合 は 0 を , エラ ー の 
場合 は 1 を 返す 


ド .… に 対応 する . 文字 の 後ろ に # ま た は , + を つけ る と 

















半音 上 が り , 一 を つけ る と 半音 下がる 

00- 電 8 ォ ク ター プ の 指定 . デフ ォ ル ト 値 は 04. 数 字 が 大 き い ほ と ど 音 が 高く な る . オォ クタ ー 
プ 0 で は C, C あ D は 使え な い . オク ター ブ 8 で は C, CD 以外 は 使え な い 

く オク ター ブ を 1 つ 上 げ る 

> ポタ ニラ Aslgak ける 

R1--R64 休 符 を 設定 する . デフ ォ ル ト 値 は RH4. R の 後ろ の 数 字 は 何 分 休 符 か を 表す 
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T32 一 T200 テン ポ を 設定 する . デフ ォ ル ト 値 は T120 

L1--L64 音符 の 長 さ を 設定 する . デフ ォ ル ト 値 は L4. L の 後 の 数 字 は 何 分 音符 か を 表す 

数 字 の 164 音符 や 休 符 の 後ろ る につけ, L の 指定 に 関係 な くそ の 音符 や 休 符 の 長 さ を 決 め る 
符 点 を 表す . 音符 や 休 符 の 後ろ に つけ て 長 さ を 1.5 倍 に する . 符 点 は 3 つま で 続け て 
つけ る こと が で きる . 2 つつ ける と 長 さ は 1.75 倍 に , 3 つつ ける と 1.875 倍 に な る 

QtQs 音 長 の 何 割 を 発音 する か を 設定 する . デフ ォ ル ト 値 は Q8. 1 て 8 の 数 字 で 1/8 て 8/8 
(=1) に 設定 され る 

& 前 後 の 音 を つなぐ (タイ ) 

01 ン 964 人 け の 中 に 現れ た 音符 を すべ て 指定 し た 長 さ の 間 に 鳴ら す . 3 連 音 符 な ど を 表す と き に 


使う 





@L1--@L192 


音 の 長 さ を 細か く 設 定 す る . デ フォ ルト 値 は @L48(L4). 全音 符 の 長 さ を 192 と し て 
実際 の 長 さ を 指定 する . L=192/@L の 関係 が 成り 立つ 





VO-V15 


音量 を 設定 する . デフ ォ ル ト 値 は V8. 数 字 が 大 きい ほど 音量 が 大 きく な る 





@V0-@V127 


V の 指定 に 関係 な く 音 量 を 細か く 設 定 する 





| :n と : | の 間 を n 回 繰り 返す . n は 1 て 256 で , 省略 値 は 2 





繰返し の n 回 目 で 演奏 する 楽譜 デー タ を 指定 する . n は 1 へ 256 





この 記号 が 現れ た ら 曲 の 先頭 に 戻る 





[FINE]([ ]) 


終了 の マー ク だ が , 1 度目 は 通過 し 2 度目 に この マー ク に 達し た と き に 終了 する 





[D.S.] [SEGNO]([$]) 


[D.S.] 記 号 が 現れ た ら [SEGNO] 記 号 の あっ た と ころ まで 1 度 だ け 戻 る 





[TOCODA] [CODA]([*]) 


[TOCODA] は [CODA] に ジャ ンプ する と いう 命令 . た だ し , 1 度目 は 通過 する 





@1-@200 


音色 の 番号 を 指定 する . デフ ォ ル ト 値 は @1 





P1P4 


出力 を 制御 する (p0 : 出力 Off p1 : 左側 出力 on p2: 右側 出力 on p3 : 両側 出力 
on) 





Yr.d 


OPM の レジ スタ を 直接 設定 する (r: レジ スタ 番号 プ d : デー タ ) &HO1, &H10, 
&H11, &H12, &H14 の レジ スタ 番号 は 使え な い 





@W1--@W64 








指定 され た 長 さ だ け 現 在 の 状況 を 維持 する . デフ ォ ル ト 値 は @W4 


表 3.G 己 MML 


それ で は , FM 音源 を 鳴ら すま で の 処理 を 順 を 追っ て 解説 する こと に し まし ょ う . 図 3.10 に フ 
ロー チャ ー ト , リス ト 3.31 に か ん た ん な プロ グラ ム を あげ て お きま す の で , 参考 に し て くだ さ 





い 。 


まず , FM 音源 の 初期 化 (m init 関数 ) か ら ス ター ト し ます . 

次 に , m_alloc 関数 で 演奏 デー タ の MML を 格納 する た め の ト ラッ ク バ ッ フ ァ を 確保 し ます . ト 
ラッ ク と は オー ケス トラ な ど で い うと 1 パー ト 分 の 楽譜 と いえ ます . この 場合 。 楽譜 と は MML 
を 指し , そ れ が 格納 され る 領域 に な り ま す . トラ ッ ク バ ッ フ ァ は 80 個 ま で 確保 で き , それ ぞ れ に 
1 番 か ら 80 番 ま で の 番号 が つけ られ ます . ここ で は n 番 の トラ ッ ク バ ッ フ ァ を トラ ッ ク n と 呼び 


ます . 


トラ ッ ク バ ッ フ ァ の 残り 容量 は m free 関数 で 得る こと が で きま す . な お 。 トラ ッ ク バ ッ フ ァ 
は , X-BASIC の フリ ー エ リア と は 別 の メモ リエ リア に 確保 され る の で , X-BASIC の 起動 時 に フ 
リー エリ ア を 広く と り 過 ぎ て いる と ,。 十分 な トラ ッ ク バ ッ フ ァ を 確保 で き な い こと が あり ます . 
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トラ ッ ク バ ッ フ ァ を 確保 で きた ら , m assign 関数 で FM 音源 の 各 チ ャ ン ネ ル を それ に 割り 
て ます . 1 番 か ら 8 番 の チャ ン ネ ル の 1 つ に 1 番 か ら 80 番 の トラ ッ ク バ ッ フ ァ を 1 つ だ け 割 9 





央 


4 


て ます . この 操作 は , 8 人 の 演奏 者 の うち , 誰が どこ に お いて ある 楽譜 を 見 て 演奏 する の か を 決定 


する の と 同じ こと で す . 


次 に , m tempo 関数 を 使っ て テン ポ の 設定 を 行い ます . 
そし て , トラ ッ ク バ ッ フ ァ に MML を 格納 し ます . MML を 文字 列 と し て 格納 し た str 型 変数 の 


名 前 と , トラ ッ ク 番 号 を 引数 と し て m trk 関数 を 呼び 出せ ば OK で す . 


最後 に m play 関数 で 演奏 を 開始 し ます . m _play 関数 を 呼び 出し た 後 は , FM 音源 を 管理 し て 
いる プロ グラ ム (MUSIC.FNC と OPMDRV.X) が , 割込み に より 一 定 の 周期 で 指定 され た トラ ッ 
ク バ ッ フ ァ よ り MML を 読み 出し て 演奏 し ます . 

m stop 関数 で 演奏 の 中 断 , m cont 関数 で 中 断 さ れ た 演奏 の 再開 を 行え を ます . また , 各 チ ャ ン 





ネル は m stat 関数 を 使っ て 演奏 中 か どう か を 調べ る こと が で きま す . 


















m_init() 


m_alloc( ) 


確保 






m_free( ) 
トラ ッ ク バ ッ フ ァ の 
残り 容量 


に 割り 当て る 


リス ト 紀 . ] FM 音源 の 演奏 例 


・_init() 
・W_alloc(8,4996) 
・ m_aSSign(8,1) 





FM 音源 の 初期 化 





トラ ッ ク バ ッ フ ァ の 





m_assiqn( ) 
トラ ッ ク を チャ ン ネ ル 








演奏 再開 





図 3.10 FM 音源 を 使っ た 演奏 の 流れ 


: str mdata[255] = "C8D8E8RI6E16D8D16C16D8R8E8G8A8R16A16G8" 


・ m_trk(1,mdata) 


1 

2 

3 

4: m_tempo(64) 
5 

6 

7: m_play(1) 


m_stop 
演奏 中 断 














m_tempo( ) 
テン ポ の 設定 





m_trk( ) 
MML デ ー タ を トラ ッ 
ク バ ッ フ ァ に 格納 
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一 自分 で 音色 を 作る に は 
X-BASIC で は 68 個 の 音色 が すでに 設定 
自由 に 音 を 設定 する こと が で きま す . 








され て いま す ( 表 3.23) が , 








これ 以外 に も 200 個 まで 






























































































































































































































































1 | APIANO ー | 2 |HpANo E.PIANO CLAVINET 
5 | CELESTA 由 CEMBALO A.GUITAR E.GUITAR 
9 | WBASS 10 | E.BASS BANJO SITAR 

13| HARP 14 | koTo P.ORGAN1 P.ORGAN2 
務 E.ORGAN 18 | AccORDION VIOLN CELLO 

21| STRINGS1 22 | STRINGS2 PIZZICATO VOICE 

|25 CHORUS 1 WHISTLE PICCOLO 
29 | FLUTE |so OBOE CLARINET BASSOON 
33 | SAXOPHONE 34 | TRUMPET HORN TROMBONE 
37 | TUBA 38| BRASS1 BRASS2 HARMONICA 
四 OCARINA E RECORDER SAMBA WHISTLE PANFLUTE 
45 | SNARE DRUM 46 | RIMSHOT BASSDRUM TOM-TOM 
49| TIMPANI 50| BONGO TIMBALES TRIANGLE 
53 | COWBEL 54 | TUBULAR BELL STEEL DRUM GLOCKEN 
57 | VIBRAPHONE 58 | MARIMBA H-H CLOSE H-H OPEN 
61 | CYMBAL SYN LEAD1 SYN LEAD2 AMBULANCE 
本 STORM LASER GUN GAME SE1 GAME SE2 














X68000 に 釜 


タ は, 正弦 濾 発振 器 と エン ベロ ー プ ジェ ネ レ ー タ ( 音 
ここ か ら 音 の も と と な る 波 が 発生 きれ ます . 


音色 の 調節 は , この 正弦 濾 に エン ベロ ー プ や , LFO (Low Frequency Oscillator : 低 周 波 発振 











表 3. 己 G すでに 設定 され て いる 音色 

















載 さ れ て いる FM 音源 は , 同時 に 8 音 ま で 発生 する こと が で きま す . これ ら の 1 つ 
1 つ を チャ ン ネ ル と 呼び , 1 個 の チャ ン ネ ル に は , 4 つの オペ レー タ が 備え られ て いま す . オペ レー 








( 図 3.11) 




















量 の 変化 を 制御 する 機構 ) な ど で 構 成 され , 


器 ), フィ ー ド バッ ク 。 オ ペレ ー タ の アル ゴリ ズム な ど , 多く の 加工 を 施す こと で 行い ます 。 XX 
-BASIC か ら も , きめ 細か く 加 工 を 行う こと 
験 と セン ス が 必要 で し ょ う . 


音色 の 











と が で きま す が , 目 


的 の 





音 を 出す まで に は 


か な り の 経 


設定 に は , オペ レー タ や LFO な どの 制御 の た め に 必要 な パラ メー タ を char 型 二 次 元 配 


列 に 格納 し , その 配列 名 と 音色 番号 を 引数 と し て m vset 関数 を 呼び 出す こと で 行い ます . 1 音色 
を 設定 する た め に は , 


dim char name (4, 


10) 


と 宣言 され た 配列 が 必要 で す . 配列 に は いっ て いる パラ メー タ は 表 3.24 の と お り で す . 
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メイ ン メ モリ 


詳 













トラ ッ ク バ ッ フ ァ 
(MML デ ー タ ) 


配列 ・ 変 数 ・ プ ログ ラム 





図 ヨ .1 1 














FM 音源 の 概要 






3.8 オー ディ オ 


シス テム |I ン 0 






FM 音源 制御 
レジ スタ 

























































































































配列 の 添え 字 配 列 の 中 身 配列 の 添え 字 配 列 の 中 身 

フィ ー ド バッ ク プ アルゴ リズ ム (0 て 63) | (1 一 4, 0) | AR( オ ペレ ー タ 1 へ 4) 
(0, 1) スロ ッ ト マ スク (0^15) (1 て 4, 1) | DI1R( オ ペレ ー タ 1 て 4) (0~31) 
(0, 2) ウェ ー プ ブ フォー ム (0 ぐ へ 3) (1 一 4, 2) | D2R( オ ペレ ー タ 1 へ て 4) (0 て 31) 
(0, 3) シン クロ (0 て 1) (1 一 4, 3) | RR( オ ペレ ー タ 1 て 4) (0 て 15) 
(0, 4) スピ ー ド (0 へ 255) (1 一 4, 4) | D1L( オ ペレ ー タ 1 へ 4) (0 て 15) 
(0, 5) PMD(0^127) (1 一 4, 5) | TL( オ ペレ ー タ 1 へ 4) (0 て 127 
(0, 6) AMD(0^127) (1 一 4, 6) | KS( オ ペレ ー タ 1 へ 4) (0~3) 
(0O, の ) PMS(0^7) (1 一 4, 7) | MUL( オ ペレ ー タ 1 へ 4) (ot5) | 
(0, 8) AMS (0 て 3) (1 一 4, 8) | DT1( オ ペレ ー タ 1 へ 4) 0^7 

L, RPAN(0 て 3) (1 一 4, 9) | DT2( オ ペレ ー タ 1 へ 4) 0~3 

間 (1 一 4, 10) | AMS EN( オ ペレ ー タ 1 つ 4 


表 3. 己 4 パラ メー タ を 設定 する た め の 配 列 の 様子 








3 章 X-BASIC プロ グラ ミン グ ガ イド 


パラ メー タ に は , 音色 1 個 に つき 1 個 設定 する も の と , オペ レー タ ご と に 設定 する も の が あり 
ます . 配列 の 要素 (0、 0) か ら (0, 9) まで は , 音色 1 個 に つき 1 個 の パラ メー タ で , (1, 0) か 
ら (4。10) まで が 4 個 の オペ レー タ に 対し て 個々 に 設定 され る パラ メー タ で す 。 








一 | 音 ご こと に 設定 する パラ メー タ 

4 個 の オペ レー タ に は ,。 1 か ら 4 まで の 番号 が つけ られ て お り , 8 つの チャ ン ネ ル に も 1 か ら 8 
まで の 番号 が つけ られ て いま す . 本 書 で は , オペ レー タ 1 は 1 番 の オペ レー タ を 指し ,。 チャ ン ネ 
ル 1 は 1 番 の チャ ン ネ ル を 意味 する こと に し ます . 

オペ レー タ に は , キャ リア と モジ ュ レ ー タ の 2 種類 が あり ます . キャ リア は , 入力 され た 流 と 
キャ リア 自身 が 作り 出し た 波 を 合成 し て 出力 し 。 モ ジュ レー タ は 入力 され た 波 に 周波 数 変調 を か 
け て 出力 し ます . 各 オ ペレ ー タ の うち , どれ が キャ リア また は モジ ュ レ ー タ と し て 働い て いる か 
を 次 に 示し ます . 





・ オ ペレ ー タ 1, オペ レー タ 3 ニモ ジュ レー タ 1 (M1), モジ ュ レ ー タ 2 (M2) 
・ オ ペレ ー タ 2。 オペ レー タ 4 ニキ ャ リア 1 (C1), キャ リア 2 (C2) 


さき て, 1 個 の チャ ン ネ ル か ら 音 を 出力 する に は , 4 個 の オペ レー タ を 組み 合わ せる わけ で す が , 
組み 合わ せ か た を アル ゴリ ズム と 呼び ます . X68000 の FM 音源 は , 8 種類 の アル ゴリ ズム を 持っ 
て いま す ( 図 3.12). アル ゴリ ズム を 変え る と 出 て くる 音 は さま ざま に 変わ り ま す . どの アル ゴリ 
ズム を 使う か は , 配列 要素 (0, 0) の bit3--0 の 3 ビッ ト に その 番号 を 設定 し ます . 





オペ レー タ 1 は セル フフ ィ ー ド バッ ク 機 能 を 持っ て いる 


1 

















第 8 チャ ン ネ ル の 第 4 オペ レー タ だ け は ノイ ズ 
ジェ ネ レ ー タ へ の 切換 え が で きる 


図 ヨ .1 己 アル ゴリ ズム 


158 














3.8 オー ディ オ 


各 チ ャ ン ネ ル の モジ ュ レ ー タ 1 は , 自分 自身 が 出力 し た 波 を 入力 し て 周波 数 変調 を か ける こと 
で きま す . これ を フィ ー ド バッ ク と 呼び , 高周波 成分 を 増やし て 音 に 厚み を つけ る こと が で き 
すず 
自分 自身 が 出力 し た 波 の 位相 を ずら し て 入力 する こと も で き ,。 そ の ずれ の 大 き さ を フィ ー ド 
パッ クレ ベル と いい ます . 位相 と は 波 を X-Y 軸 上 に 投影 し て 時 間 的 に 変化 を させ る と き 。, 波 が 又 
鞭 上 を どの くら い 進 ん だ か を 表す 値 で 。 波 が ちょ うど 1 周期 分 進ん だ と き の 位相 は 2z で す . 











0:OFF 1:z/16 2:z/8 3:z/4 4 iz/2 5: ヶ 6:2 ヶ 7 : 4 ヶ 


フィ ー ド バッ ク は ,。 配列 要素 (0, 0) の bit5 て 3 の 3 ビッ ト に その レベ ル を 設定 し ます . 

各 チ ャ ン ネ ル は , それ ぞ れ オペ レー タ の 動作 の ON か OFF を 設定 で きま す . 各 チ ャ ン ネ ル の 4 
個 の オペ レー タ そ れ ぞ れ の ON ノ OFF は ,、 スロ ッ ト マ スク と いう パラ メー タ で 設定 し ます . これ 
は , 配列 要素 (0 1) の bit3 か ら bit0 の 4 ビッ ト に , 下位 の ビッ ト か ら オ ペレ ー タ 1, 2。3, 4 の 
順に 割り 当て られ て いま す . 各 ビ ッ ト が 0 の と き OFF, 1 の と き ON で す .。 OFF に する と オペ 
レピータ に 入力 され た だ 波 が その まま 出力 され ます . ON の と き は , 入力 され た 波 を オペ レー タ 自 身 が 
作る 波 と 合成 する か 周波 数 変調 を か ける か し ます . 


ウェ ー ブ フ ォ ー ム 

LFO は 自分 自身 が 発生 する 低 周 波 で 各 チ ャ ン ネ ル が 出力 し た 信号 に 振幅 変調 また は 周波 数 変 
調 を か ける こと が で きま す . 波形 は 振幅 変調 , 周波 数 変調 に それ ぞ れ 4 種類 あり , 波形 は ウェ ー 
プ ブフ ォ ー ム と いう パラ メー タ で 指定 し ます . これ は , 配列 要素 (0, 2) に 0 か ら 3 ま で の 番号 を 
設定 し ます . 





シン クロ 

LFO の 動作 を オペ レー タ が 波 を 発生 する の と 合わ せ て (同期 し て ) 開始 する よう に で きま す . 
シン クロ と いう パラ メー タ が 0 の と き 同 期 せ ず 。 1 の と き 同 期し ます . これ は , 配列 要素 (0。 3) 
に その 値 を 設定 し ます . 


2 選 王 衝 

LFO が 出力 する 低 周波 の 周波 数 は , 0.0009Hz か ら 59Hz の 範囲 で 設定 で き , この 周 涼 数 が 高い 
ほど 音 の 変化 が は げ し く な り ま す . LFO の 周波 数 は スピ ー ド と いう パラ メー タ で 設定 し ます が , 
その 内 容 は 次 の と お り で す . 


3 章 X-BASIC プロ グラ ミン グ ガ イド 


0 … 0.0009Hz 
) 
255) …r て 59Hz 





スピ ー ド は , 配列 要素 (0, 4) に 0 か ら 255 まで の 値 を 設定 し ます 


PMD〆AMD 

LFO の 出力 レベ ル の 設定 が 大 きい ほど , 振幅 変調 の と き は 音量 の 変化 が , 周波 数 変調 の と き は 
音程 の 変化 が 大 きく な り ま す . 振幅 変調 を か ける と トレ モロ 効果 が 生ま れ , 周波 数 変調 を か ける 
と ビブ ラー ト 効 果 が 生ま れ ま す . レベ ル の 大 き さ は , 振幅 変調 の と き は AMD(Amplitude Modu- 
lation Depth) パラ メー タ で 設定 し , 周波 数 変調 の と き は PMD (Pitch Modulation Depth) パ 
ラメ ー タ で 設定 し ます . AMD, PMD と も に 0 か ら 127 の 範囲 で 設定 し 。 値 が 大 きい ほど レベ ル 
は 大 きく な り ま す . 

PMD は 配列 要素 (0, 5) に , AMD は 配列 要素 (0。 6) に , それ ぞ れ レベ ル 値 を 設定 し ます . 




















PMS/AMS 

LFO の 変調 感度 (入力 され た 波 に LFO が 変調 を か ける と き の 度 合い ) も 設定 する こと が で き 
ます . 変調 感度 が 高い と き の 音 を 聞く と , 変調 が か か っ て いる こと が は っ きり わか り ま す 。 変調 
感度 は 振幅 変調 の と き は AMS (Amplitude Modulation Sensitivity) パラ メー タ で 設定 し , 周波 
数 変調 の と き は PMS (Pitch Modulation Sensitivity) パラ メー タ で 設定 し ます . AMS は 0 か 
ら 3,。 PMS は 0 か ら 7 の 範囲 で 設定 し 値 が 大 きい ほど 変調 感度 が 高く な り ます . 

PMS は 配列 要素 (0 7) に , AMS は 配列 要素 (0。 8) に , それ ぞ れ レベ ル 値 を 設定 し ます . 

な お , PMD, PMS の どちら か 一 方 で も 0 に な っ て いる と 周波 数 変調 は か か り まま の 
AMD, AMS の どちら か 一 方 で も 0 に な っ て いる と 振幅 変調 は か か り ませ ん . 


L,HPAN 
各 チ ャ ン ネ ル の 出力 先 は , 右 , 左 ,. ステ レオ ( 右 十 左 ) の 3 つか ら 1 つ を 選べ ます 。L.R PAN 
と いう パラ メー タ に 次 の 値 を 設定 し ます . 
0 : 出 力 OFF 
1 : 左 
2 : 右 
3: ステ レオ ( 右 十 左 ) 


これ は , 配列 要素 (0。 9) に 上 記 の 値 の うち どれ か を 設定 し ます . 
な お , 第 8 チャ ン ネ ル の キャ リア 2 だ け は ,。 ノイ ズ ジ ェ ネ レー タ と 呼ば れる ヾ ザー ン と いう 雑 
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39。 オー ディ イオ 


斉 を 発生 きせ る も の と 切り 換え る こと が で きま す . ノイ ズ ジ ェ ネ レー タ を 使う と ゲー ム な どの 効 
果 音 を 作る こと が で きま す . 





一 オペ レー タ ご と に 設定 する パラ メー タ 

オペ レー タ の 正弦 濾 発振 器 よ り 出 力 さ れる 正弦 渡 は ,。 これ か ら 説明 する エン ベロ ー プ (音量 の 
変化 ) に 従っ て 出力 され ます . エン ベロ ー プ ジェ ネ レ ー タ は 音 が 鳴り 始め て か ら 鳴 り 終わ る まで 
の 音量 の 変化 を 制御 し ます ( 図 3.13). 








トーAR-> ュ ーD1R 一 = ューD2R 一 *sーRR-』| 
音量 0 て 31 1 0<3 
Max 減 表 量 ! 小 ー 大 」 小 一 大 


0^31 1! 0<15 
小玉 大 」 小 一 大 I 
1 


1 
1 
I 
1 
I 
| 
1 
1 
1 
1 
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Key On Key Off 


d.1 コ 3 エン ベロ ー プ 


音量 の 変化 は 音 の 鳴り 始め (Key On) か ら , 音 の 出力 を 止め る と き (Key Off)。 音 の 鳴り 終 
わり まで の 制御 を 行い ます . Key On と Key Off は シン セ サ イ ザー や キー ボー ド な どの キー を 押 
し た と き と キ ー を 離し た と き と い う 意 味 を 持っ て いま す . た と えば , ピア ノ の 鍵盤 を 押す と 音 が 
出 ま す が 。 鍵盤 を 離し た 後 も し ば らく は 小さ い 音 が 鳴っ て いま す .。 も し , ピア ノ の 音 を 作る 場合 
トイ ャ リト で テー 

この よう に , より 本 物 に 近い 音 を 作る た め に 音量 の 変化 を 設定 する の で す . 音量 の 変化 は , 次 
の よう な 5 つの パラ メー タ に よっ て 決ま り ま す . 





1 


アタ ッ ク レ イト (AR) … Key On 後 , 減衰 量 が 0dB に 達する まで の 音量 の 増加 の 祝 
合 を 0 か ら 31 の 範囲 で 設定 する . 値 が 大 きい ほど 音量 の 増 
加 は 速く , 鋭い 音 に な り , 小さ いと や わら か い 音 に な る 

・ デ ィ ケ イレ ベル (D1L) …. 減衰 量 が 0dB に 達し て か ら , 音量 を 下げ る と き の 利 本 レ ベ 
ル を 0 か ら 15 の 範囲 の 減衰 量 で 表す . D1L な 0 か ら 14 の 
と き は D1Lx3qdB に 相当 し , D1 し = ニ 15 の と き 93dB に 相当 
する 














3 章 X-BASIC プロ グラ ミン グ ガ イド 


・ デ ィ ケ イレ イト 1 (D1R) … 減衰 量 が 0dB に 達し て か ら , D1L に 達する まで の 音量 の 減 
少量 を 0 か ら 31 の 範囲 で 設定 する . 値 が 大 きい ほど 音量 の 
減少 は 大 きく な り , 金属 音 に 近く な る 

・ デ ィ ケ イレ イト 2 (D2R) … 音量 が DL に 達し て か ら , Key Off に 達する まで の 音量 の 
減少 量 を 0 か ら 31 の 範囲 で 設定 する . 値 が 大 きい ほど 音量 
の 減少 は 大 きく な り , 音量 が 下がる の が 速く な る 

・ リ リー スレ イト (RR) … Key Off 後 , 音量 レベ ル が 0 に な る まで の 音量 の 減少 量 を 
0 か ら 15 の 範囲 で 設定 する . 値 が 大 きい ほど 音量 の 減少 は 
大 きく な り , 音量 が 下がる の が 速く な る 





音量 の 変化 を 表す た め に は 減衰 量 を 使い ます . 減衰 量 と は , 音量 の 最大 レベ ル と 比べ て どの く < く 
らい 低い 音量 レベ ル か を 表す も の で , 値 が 大 きい ほど レベ ル は 低く な り ま す . 減衰 量 は 0 か ら 96 
の 範囲 で , 単位 は dB (デシ ベル ) で す . 0dB の と き 音 量 は 最大 レベ ル で す . た だ し , 減衰 量 が 2 
倍 に な っ た か ら と いっ て 音量 の 変化 は 2 倍 に は な ら な い の で 注意 し て くだ さい . 

X68000 の FM 音源 は , 単なる 音源 と し て だ け で は な く , 楽器 と し て の 機能 を 重視 され て いる た 
め , キー スケ ー リ ング と いう パラ メー タ が あり ます . これ は , 音程 の 変化 に 応じ て 自然 な 音 に 近 
づく よう に , エン ベロ ー プ の 補正 を 行う 役割 を 果たし ます . 低い 音 は 長く 重く 響き , 高い 音 は 短 
< く 軽く 響き ます . キー スケ ー リ ング は 0 か ら 3 の 範囲 で 設定 し ます ( 図 3.14). 








キーーーーーーーーーーーーーーー ーー ニー ニーーーーーーーーーーー ち =- 
音程 が 高く な る と 音程 が 低く な る と 
時 間 が 短く な る 基本 エン ベロ ー プ 時 間 が 長く な る 


図 ヨ .14 キー スケ ー リ ング 


トー タル レベ ル (TL) と いう パラ メー タ は , 音量 や 音色 を キー スケ ー リ ング な ど で 制 御 す る た 
め の 総 音量 を 調節 で きま す . 0 か ら 127 の 範囲 で 設定 し , 値 が 大 きい ほど 音量 は 大 きく な り ま す . 

各 オ ペレ ー タ は, 出力 す る 波 の 周波 数 の 調整 を MUL, DT1, DT2 の 3 つの パラ メー タ で 行い 
ます . 調整 する と き は DT2。DT1, MUL の 順に 行い ます . 


・DT2 … 周 濾 数 の 粗 調整 パラ メー タ で , 0 か ら 3 の 範囲 で 設定 する 
・DT1 … 周波 数 の 微 調整 パラ メー タ で , 0 か ら 7 の 範囲 で 設定 する 
・MUL … DT2, DT1 で 調整 し た 周波 数 の 倍率 を 0 か ら 15 の 範囲 で 指定 する 





























音程 の 調和 館 は 主 に この 3 つの パラ メー タ で 行い ます . また , AMS は 各 オ ペレ ー タ ご と に 有効 か 
無効 を 設定 で きま す . 有効 の と き は LEFO の 変調 が か か り , 無効 の と き は か か り ま せん . これ は 
AMS EN パラ メー タ で 設定 し ます . 0 の と き 無 効 , 1 の と き 有 効 で す 。 
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39 マ ウス 


3. マウ ス 


マウ ス に 関す る 関数 は , 外部 関数 ファ イル ^MOUSE.FNC” に 納め られ て いま す ( 表 3.25). 











書 式 引 数 戻り 値 機 能 戻り 値 の 意味 






マウ ス の 表示 , 初期 化 な ど を 行う (i=0 : マウ ス の 初期 
化 , i=1 : マウ スカ ー ソ ル の 表示 , i=2 : マウ スカ ー ソ 
ル を 消す . i=3 : マウ ス の 状態 を 返す , i=4 : ソフ トキ 
ー ボ ー ド の 表示 禁止 ) 


1=3 : 表示 一 1, 非 表 示 0 
それ 以外 は , 通常 0 エラ ー の 
と き は 1 を 返す 


ouse() int 型 int 型 








msarea( x1, y1, 正常 な 場合 は 0 を , エラ ー の 






































x2. y2) int 型 int 型 マウ スカ ー ソ ル の 移動 範囲 を 設定 する 場合 は ー1 を 返す 
3 有 8 、。 | 0 な ら ば ドラ ッ グ され た こと を 
り ボタ ン が 指定 = 状態 に な * の 時 間 を 返 | ニ の 
msbtn(n. b, ea "PR Mk で も ーー 
大 値 を 超え た こと を 示す 
mspos(x, y) int 型 int 型 マウ スカ ー ソ ル の 現在 の 座標 を 変数 xy に 返す ーー 
msstat(x, y, bl, br) | int 型 int 型 マウ ス の 状態 を 変数 x, y, bl, br に 返す ] ーー 
宮 な 揚 会 ーー 
setmspos(x, y) int 型 int 型 マウ スカ ー ソ ル の 位置 を 設定 する 2 


場合 は -1 を 返す 





表 3. 己 ら マウ ス 関 連 の 関数 


な お , 表 3.25 の な か の パラ メー タ の 意味 は 次 の と お り で す 。 


・msbtn 関数 の パラ メー タ 


n … 0: ボタン が 離さ れる まで プ 1 : ボタ ン が 押さ れる まで 
0 320 に 1 と た 
t … 待ち 時 間 の 最大 値 (0 また は 1 の と き , 待ち 続け る ) 


・msstat 関数 の パラ メー タ 
x, y … それ ぞ れ の 方 向 の 相対 移動 量 (一 128-- 十 127) 


bl … 左 ボ タン の 状態 (一 1 : 押 き れ て いる ノノ 0 : それ 以外 の 状態 ) 
br  … 右 ボ タン の 状態 (一 1 : 押さ れ て いる 0 : それ 以外 の 状態 ) 


マウ ス を 使用 する 場合 に は , まず マウ ス の 初期 化 (mouse 関数 ) を 行い ます ,. マウ ス ボ タ ン を 
2 つと も プロ グラ ム 中 で 使い た いひ い 場合 は 。 mouse (4) を 行っ て くだ さい 、. 


・mouse (0) … マウ スカ ー ソ ル が 出 て いな い 状 態 で , 右 ボタ ン を 2 回 クリ ッ ク す る と , 
ソフ トキ ー ボ ー ド が 使用 可能 に な る . 表示 され た キー ボー ド の キー に 
マウ スカ ー ソ ル を 移動 きせ て 左 ボ タン を 押す と 。 対応 する キー が 押さ 
れ た と き と 同 じ 動 作 を する . 

・mouse (4) … ソフ トキ ー ボ ー ド は 使用 不可 能 に な る (マウ スカ ー ソ ル は 出 た まま ). 
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マウ スカ ー ソ ル の 座標 は mspos 関数 で 得る こと が で きま す . 引数 と し て 指定 し た 変数 に , 現在 


の マウ スカ ー ソ ル の 座標 が は いり ます (リス ト 3.32). 








リス ト . コ 3 mspos 関数 


1: int x,y 

2: while 1 

3: mspos(x,y) 

4: locate 29: print xyi 
5: endwhile 





マウ ス ボ タ ン の 状態 は msstat 関数 で 得る こと が で きま す . mspos 関数 と 同じ よう に 引数 に 指 
定 し た 変数 に ,。 マウ ス の 相対 移動 量 と 2 つの マウ ス ボ タ ン の 状態 が は いり ます (リス ト 3.33) . 





リス ト 紀 .3 msstat 関数 


int dx,dy,bl,br 
Scfeen 1.3,1,1 
mOuSe(4) 
while 1 
msstat(dx,dy,bl,br) 
locate 29.29: print " 左 ボ タン : 者 ポタ ンダ 
locate 39,29 
if bl=-] then print "ON ") else print "OFF" 
locate 44,29 
if br=-1 then print "ON ") else print "OFF" 
endwhile 


一 で ぐ ど ココ の の ささ な の OO 一 





mspos 関数 と msstat 関数 を 組み 合わ せ て 使う と き は , マウ ス ボ タ ン を 押し て いる 間 に マ ウス 
カー ソル が 動い て し まう こと が ある の で ,。 リ スト 3.34 の よう に する と よい で し ょ う . 


リス ト 紀 . コ 4 mspos 関数 と msstat 関数 





1: int x,y,dx,dy,bl,br 

2: screen 1,3,1,1 

3: mouse(4) 

4: while 1 

5: msstat(dx,dy,bl,br) 

6: mspos(x,y) 

7 locate 29: print %yi 

8 locate 29,29: print " 左 ボ タン : 右 ボ タン : の: 


9: locate 39,29 

19: jif bl=-1 then print "ON ?: else print "OFF” 
11: locate 44,29 

12: if br=-1 then print "ON ") else print "OFF" 
13: endwhile 
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また , マウ スカ ー ソ ル は msarea 関数 を 使っ て 移動 範囲 を 設定 で きま す (リス ト 3.35). 


リス ト 3. コ 5 msarea 関数 


NN0 XN 

・ screen 1,3,1,1 

・ mouse(4) 

: msarea(!,9,255,255) 
・while 1 

mSpoS(X, ゞ ) 

locate 29: print %X,yj 
・ endwhile 


Co = の 〇 の) On JR で OS TO 一 
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これ まで X-BASIC の 特徴 と 文法 , 外部 関数 の 使用 法 を 説明 し て きま し た . いま まで の BASIC 
と は ひと 味 違っ た X-BASIC の 姿 が 見 えて きた で し ょ うか . 文法 や 関数 の 説明 で 使わ れ て いる 短 
い サ ンプ ルプ ログ ラム は , 大 き な プ ログ ラム を 書く と き の 基 本 に な る も の ば か り で す . 

それ で は , 最後 に X-BASIC の 集大成 と し て ADPCM エディ タ を 紹介 し まし ょ う . 

この プロ グラ ム は , ADPCM を 使っ て 音声 を 録音 し た り , 再生 し た りす る 作業 を 視覚 的 に 表示 
し て 行 お うと いう も の で す . そし て ,。 サ ンプ リン グ さ れ た デー タ の 波形 を 表示 し , それ を 見 な が 
ら デ ー タ を 編集 (カッ ト だ け で す が ) する こと が で きま す . 最大 録音 / 再 生 時 間 は 3.9kHz モー ド 
で 約 33 秒 で す . も ちろ ん , で き あ が っ た デー タ (15.6kHz モー ド の デー タ の み ) は , BEEP.SYS 
と 置き 換え て ビー プ 音 と し て 使う こと も で きま す .。 








一 プロ グラ ミン グ 上 の 注意 点 

録音 時 間 を 決め る の は 配列 の 型 と 要素 数 で す . この プロ グラ ム で は char 型 の 配列 を 使っ て い 
る ため, 65,536 バイ ト ま で し か デー タ を 扱え ませ ん . も っ と 録音 時 間 を 延ばし た いと き は int 型 や 
float 型 の 配列 を 使い ます . し か し , ADPCM デー タ は 1 個 当 た り 4 ビッ ト な の で デー タ の 変換 を 
行う 関数 を 配列 の 型 に 応じ て 作ら な けれ ば な り ま せん . 

な お , 音声 の 波形 表示 や 音声 の 一 部 を 切り 取る に は , ADPCM 方 式 の まま で は 扱い に くい の で 、 
Cut や 波形 の 表示 を する と き に は , ADPCM か ら PCM へ デー タ を 変換 し て 処理 し て いま す . そ し 
て , 再生 や 保存 を 行う と き は 本 来 の ADPCM に 変換 し ます . 

また , ファ イル と し て 保存 する と き に , サン プリ ング 周波 数 , 録音 時 間 , 何 の 音 な の か と いう 
コメ ント を 記録 し て お く た め の 管理 用 ファ イル (ADPCMED.DIR) を 作っ て いま す 。 これ ほ プ ロ 
グラ ム 中 で ,。 ファ イル の 一 覧 を 表示 し た りす る 際 に も 使わ れ て いま す . また , ファ イル 探 作 は ヵ 
レン トディ レク トリ 上 の ファ イル 限っ て いま す . 
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田 プロ グラ ム の ポイ ント 

-BASIC で は 関数 の プロ グラ ミン グ が 大 き な 意 味 を 持っ て いる と いう こと は , も うい うま で 
も あり ませ ん . 

関数 を うま く 作 る ポイ ント は , 引数 に し な けれ ば な ら な いも の は 何 か , 戻り 値 と し て 返す べき 
も の は 何 か を 十分 考え る こと で す . この プロ グラ ム で は , の ちの ち 有 効 に 使え る 関数 と し て , プ 
ル ダ ウ ン メ ヌメ ニュー 関数 を 作っ て あり ます . これ は , メニ ュー 表示 用 の 初期 化 部 分 nitmenu 関数 ) 
と メニ ュー の 選択 や 操作 部 分 (menu 関数 ) か ら な り ま す . initmenu 関数 と menu 関数 は と も に 
引数 は 1 個 で す が , メニ ュー の タイ トル な どの 情報 を 配列 か ら 得 て いま す . 

関数 の 使い か みた も それ ほど 難し く あ り ま せん . まず メニ ュー の 初期 化 関数 に メニ ュー 用 文字 列 
の は いっ た str 型 の 変数 名 を 指定 し て 呼び ます . メニ ュー 用 文字 列 は メニ ュー の タイ トル と な る 
文字 列 を スペ ー ス や “ 届 ? 記号 で 区 切っ た も の で す . スペ ー ス は メイ ン メ ニュ ー や サブ メニ ュー 
の 区 切り で , ヾ 色 ? 記号 は グル ー プ と グル ー プ の 区 切り で す . 

太 ボ タン を 押し て , すぐ 出 て くる メニ ュー を メイ ン メ ニュ ー, メイ ン メ ニュ ー の どれ か に マウ 
スカ ー ソ ル を 合わ せる と 縦 に 出 て くる メニ ュー を サブ メニ ュー と 呼び ます . メイ ン メ ニュ ー1 個 
に つき 9 個 ま で サブ メ ヌメ ニュー を 持て ます . こ の メイ ン メ ニュ ー1 個 と サブ メニ ュー9 個 の 組合 わせ 
を グル ー プ と 呼ぶ こと に し 。 最大 9 グル ー プ まで 作れ ます . 

メイ ン メ ニュ ー は 左 か ら 順 に 1 から 9。 サブ メニ ュー は 上 か ら 順 に 1 か ら 9 の 番号 が つけ られ 
て いま す . 

menu 関数 や initmennu 関数 に 現在 の スク リー ン モ ー ド の 横文字 数 を 指定 し て 呼び 出し ます . こ 
の メニ ュー 表示 は 96 文字 , 64 文字 の 両方 で 使用 で きま す の で , 他 の プロ グラ ム へ の 応用 も か ん た 
ん に で きま す . 戻り 値 は 2 桁 の 10 進数 で , 次 の よう な 意味 を 持ち ます . 








(メイ ン メ ニュ ー の 番号 ) X10 十 (サブ メニ ュー の 番号 ) 


この 値 を 使っ て switch--endswitch で 。 そ れ ぞ れ の 作業 を 行う 関数 へ 分 岐 き せれ ば よい で し ょ 


ジ 。 


田 ADPCM エディ タ の 使い か た 

この プロ グラ ム を 動か す た め に は フリ ー エ リア を で きる だ け 大 きく し て お か な けれ ば な り ま せ 
ん . メモ リ が 標準 実装 の 場合 は , お よそ 600K バイ ト 程 度 は 確保 し て お いて くだ さい . 

さて , ADPCM エディ タ が 起動 する と 波形 を 表示 する ウイ ンド ウ と コン トロ ー ル パネ ル が 表示 
され ます (写真 3.1). あと は マウ ス を 使う こと で すべ て の 操作 を 行う こと が で きま す . マウ ス の 
右 ボ タン は メニ ュー の 選択 を 行う も の で , 左 ボタ ン は パラ メー タ の セッ ト や 波形 表示 の 移動 , フ ァ 
イル の 選択 に 使い ます . 右 ボ タン を 押す と 画面 の 一 番 上 に メイ ン メ ニュ ー が 表示 され ます の で , 
ボタ ン を 押し た まま メイ ン メ ニュ ー の File, Cmd, Edit の 位置 に マウ ツ スカー ソル を 合わ せま す . 
する と , お の お の の サブ メニ ュー が 表示 され ます の で , さらに 右 ボ タン を 押し た まま サブ メニ ュー 
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写真 ヨコ.1] メニ ュー の 一 覧 




















移動 きせ , 目的 の 項目 で 押し て いる ボタ ン を 離す こと で 選択 され ます . 

File は ADPCM デー タ を 格納 する ファ イル の 管理 を 行い っ ます. ADPCM エディ タ で は , ADPC- 
MED.DIR と いう 管理 ファ イル に 登録 きれ て いる ファ イル し か 扱う こと が で きま せん . も し , 登録 
きれ て いな い フ ァイル を 編集 し た い 場 合 は 。 NewFile を 選択 し て 管理 ファ イル に 登録 し て くだ さ 
い . た だ し , 登録 で きる ファ イル 数 は 32 個 ま で で す . Load で ファ イル を 読み 込む と , 書き 込ん 
だ と き の パ ラメ ー タ に 自動 的 に セッ ト さ れ , 波形 を 表示 し ます . Save で は , 現在 表示 され て いる 
波形 の デー タ を 録音 時 間 (Rec Count) で 指定 され た 長き の 分 だ け フ ァイル に 保存 し ます . 

Cmd は ADPCM デー タ の 録音 や 再生 を 行い ます . サブ メニ ュー に は Play と Rec が あり ます . 
Play は 現在 表示 され て いる 波形 の デー タ の 先頭 か ら Play Count で 設定 され て いる 長き だ け デ ー 
タ を 再生 し ます . Rec は Rec Count で 設定 され て いる 長 さ だ け 録 音 し ます . 

Edit は ADPCM デー タ の カッ ト を 行い ます . サブ メニ ュー は Cut の み で す . Cut を 選ぶ と 濾 形 
の 上 に 直線 が 現れ , 切り 取る デー タ の 始点 と 終点 を 指示 する カー ソル に な り ま す . ます 。 端点 に 
カー ソル を 合わ せ て 左 ボ タン を 押し , 次 に 終点 に カー ソル を 合わ せ て , も う 一 度 左 ボ タン を 提 
ます . 終点 の 指定 と 同時 に 切 取 り が 始ま り ま す . 画面 に 表示 きれ て いる の は 480 個 分 の デー タ で 
す の で , 表示 範囲 外 の デー タ を 指定 し た い 場 合 は , 波形 の 窓 の 右 下 に ある 矢印 を マウ ス ? 
ン で クリ ッ ク し て , 波形 の 見 える 位置 まで 移動 し て か ら 操 作 し て くだ さい . 右 矢印 は . 現在 表 
され て いる 波形 の 300 個 先 まで の デー タ を , 左 矢印 は 300 個 前 か ら の デー タ を 表示 し ま 3 

















































































































また 。 波形 の 下 の Base Point に は 。 波形 の 左端 が 何 番目 の デー タ か を 。 Data Point は ほ 切 り 到 
る デー タ の 位置 を 表示 し て いま す の で , 指定 する 場合 の 参考 に な る で し ょ う 
な お , デー タ の 量 が 多い (録音 時 間 が 長い ) 場合 は 処理 に 時 間 が か か り ま す . 画 画 下 に あと と 
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の くら いか か る か と いう グラ フ が 表示 され ます の で , 目安 と し て くだ さい 、. 
波形 を 表示 する 窓 の 下 に ある スイ ッ チ 類 は ,。 マウ ス の 左 ボ タン で 選択 し ます . ここ で は , 





録音 


や 再生 する 時 間 の 長き , サン プリ ング 周波 数 や , 再生 時 の 音声 出力 モー ド な どの 設定 を 行え を ます. 

Rec と Play Count は 録音 時 間 と 再生 時 間 を 設定 し ます . 時 間 の 表示 の 右 に 矢印 が あり ます . 上 
向き の 矢印 に マウ スカ ー ソ ル に 合わ せ て 左 ボ タン を 押す と 増加 し , 下 向き の 矢印 だ と 減少 し ます . 
また , この 時 間 の 設定 は , 秒 単位 か ADPCM デー タ の 配列 の 数 か を 選ぶ こと が で きま す . 秒 単 位 
で 行う 場合 は Second の 部 分 に 。 デー タ の 個数 で 行う 場合 は Count に マウ スカ ー ソ ル を 合わ せ て 

















左 ボ タン を 押し ます . 


Sampling Frequency は 録音 や 再生 時 の サン プリ ング 周波 数 を 設定 し ます . いずれ も , 5 つの サ 
ンプ リン グ 周 波数 の 表示 が ある の で , マウ スカ ー ソ ル を 合わ せ て 左 ボ タン を 押し て 選択 し ます . 








Sound Mode は 再生 時 の 音声 の 出力 先 ( 右 , 左 , 左右 , 出力 し な い ) を 選択 し ます . 








リス ト 3.3 ADPOM エ テ ィ タ 

















1: /* 

2: /* constant definitions 

3: /* 

4: jint ERR = -1 

5: int DIRMAX = 26 … で の io ADPCM エ ディ タ が 管理 する ファ イル の 最大 数 

6: str menus[89〕 = "File Load Save Rename Delete NewFile Quit& Cmd Play Reco | メニ ュー 守 示 用 文字 
rd & Edit Cut" 

7: dim str frqstr(4)[7] = 3.9KHz", "5.2KHz",。 "7.8KHz7, "19.4KHz", "15.6K 
Hz” サン プリ ング 周波 数 音声 

8: dim str sndstr(3)[11] = ("Cut ath Right "Ste [ 出力 モー ド の 選択 用 文字 列 
reo(L+R)"} 

9: /* 

19: /* variable definitions 

11: /* 

12: int dirty = ! /* PCM data's flag 

13: int recfreq = 4 playfreq = /* 3.9KHz 

14: int tmd = /* Time 

15: int mode = 3 /* Cut mode その 他 の グロ ー バ ル 変 数 

16: int recsize = /* recorded file size 

17: int reccount = playcount = ! /* recording or playing data size 

18: int xbase = 9, dataptr = 

19: /* 


29: dim char ADPCMdata(65535) 
21: dim int PCMdata(1, 65535) 


22: dim str menustr(9, 9) /* for menu()... | メニ ュー 表示 用 の 
23: dim int menustat(15) /* for menu().. | グロ ー バ ル 変 数 


24: dim str dirs(26)[22], st_smpfrq(26)[7], st_time(26)[5], comment(26)[24] 
25: /* 

26: /* const. and var. definitions for use ADPCM <-> PCM data converting 
277 /k 














28: dim int delta(48) ={ 16, 17, 19, 21, 23, 25, 28 

29: , 31, 34, 37, 41, 45, 59, 55 

39: , 69, 66, 78, 8 88, 97,17 

31: , 118, 13, 143, 157, 173, 199, 299 5 か 
32: ・ 239, 253。 279。 37。 397。 9371 40 Pa 
38: , 449, 494, 544, 598, 658, 724 796 | ラロ ーッ aa 


876, 963,1969,1166,1282,1411,1552 ) 
35: dim jnt step(15) = { -1, -1, -1, -1, 2, 4, 6, 8, 

36: し さこ 5 人 Sm2 2486.66c 

37: jint apdeltanum, padeltanum 
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38: /* 

39: /* main 

朝 : /* 

41: error off 

42: mouse(4) : mouse(1) 

43: msarea(9, 9, 511, 511) { 男 還 の 初期 化 
44: dispinit() 

45: initmenu(menus) 

46: adcont() COOOOLKKKKU ADPCM エ ディ タ 本 体 
47: width 96 

48: mouse(9) : mouse(2) | Sep 人 
49: end 

59: /* 

51: /* menu support functions... 

52: /* 

53: func initmenu(messiStr) 

54: int ij, num, Size, tmp 

9 と Str mes 

56: i=9:j=9:num=9: size=5 
57: mes = strtok(mess, ””) 

58・: while mes <> “" 

59: ifj>9then【 

69: print "Error in initMenu()" 
61: stop 

62: 

63: menustr(i, j) = mes 

64: tmp = strlen(mes) 

65: if size <tmp then size = tmp 
66: 9)。 J 示 」 

67: ifnum<J」then num = J 
68: mes = strtok(""。 うう 

69: if mes = "8 then { 

7: menustat(i) = 」- 1 
0 は: 1i=i+ 1 

7 ifi>9then( 

人 print "Error in initMenu()”" 
74: stop 

75: } 

76: J 2 

が mes = strtok("。 リ うう 
78: } 

3 endwhile 

8 menustat(i) = 」- 1 

81: menustat(11) = size + 4 

82: menustat(12) = i 

83: menustat(18) = num - 1 

84: menustat(14) = 9 

85: menustat(15) = 

86: for i =9to menustat(12) 

87: for j= to menustat(i) 
88: 

,J))) 

89: next 

99: next 

91: endfunc 

92: /* 

93: func menu(scrxiint) 

94: Int cx, Cy 

95: int mx, my 

96: 10Y WIySORSET ITt。 99 

97: int field, num 

98: int ofield, onum 

99:: RE 1 J 
199: mS = mouse(3) 
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メニ ュー 画面 表示 の た め の 
グロ ー バ ル 変 数 の 初期 化 





menustr(i, 」j) = menustr(i, jJ) + space$(size - strlen(menustr(i 
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11: if ms =then mouse(1) 
192: cx =poS : cy = csSrlin 
193: mSpoS(mx, my) 
194: setmspos(menustat(14), menustat(15)) 
195: color 11 
196: for i=to menustat(12) 
197: locate ji * menustat(11), 9 
198: print "imenustr(i, の 5 
199: next 
119: print space$(scrx - menustat(11) * (menustat(12) + 1)) 
1 層 field = menustat(14) / 8 / menustat(11) : num = menustat(15) / 16 
112: ofield = field : onum = num 
113: if field <= menustat(12) then { 
114: for 」= 1 to menustat(field) 
115: locate field * menustat(11) + 2, j 
116: print menustr(field, j) 
117: next 
118: 
119: repeat 
129: msstat(x。y, rgt, 1ft) 
121: mspos(x, y) 
122: field = x / 8 / menustat(11) 
123: num =y / 16 
124: if field <> ofield then { 
125: if ofield <= menustat(12) then { 
126: color 3 
127: for j= 1 to menustat(ofield) 
128: locate ofield * menustat(11) + 2, j 
129: print space$(menustat(11) - 4) 
139: next 
131}: color 11 
132: 
89 if field <= menustat(12) then { 
134: for j = 1 to menustat(field) 
135: locate field * menustat(11) + 2, j メニ ュー 選択 
136: print menustr(field, j) 
137: next 
138: 
139: ) else if num <> onum and ofield <= menustat(12) and onum <= menus 
tat(13) then { 
49: locate ofield * menustat(11) + 2, onum 
41: print menustr(ofield, onum) 
42: H 
43: if field <= menustat(12) and 9 < num and num <= menustat(13) then 
44: color 3 
45: locate field * menustat(11) + 2, num 
46: print menustr(field, num) 
47: color 1]1 
48: } 
149: ofield = field 
159: OnUW = hUW 
151: until Ift = 9 
152: color 3 
5 1 = ofield 
154: for 」= 1 to menustat(i) 
155: locate ji * menustat(11) + 2, j 
156: print space$(menustat(11) - 4) 
157: next 
158: color 3 
159: locate 
16 上 : print space$(scrx) 
161: locate cx, cy 
162: mspoS(x, y) 
】Z0 
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163: menustat(14) = x 
164: menustat(15) = y 
165: setmspos(mx, my) 
166: if field > menustat(12) then return( の 
167: if num < 1 or menustat(field) < num then return(⑳⑰ 
168: if ms =then mouse(2) 
169: return((field + 1) * 1 + num) 
179: endfunc 
1 / 
172: /* Display Init. 
173: /* 
174: func dispinit() 
175: int ji, j 
176: str st 
7: Screen 1, 1, 1, 1 
178: color[9, , , &HFFFF] : color 3 
179: console 9, 32, 9 
18: window( 上 4 511, 511) 
181: apage( り ) 
182: box( 16, 16, 495, 271, 8) : fi11(32, 32, 159, 415, 15) 
183: fi11(192, 329,。 351, 431, 15) : filI(384, 329, 479, 399, 15) 
184: paint(5, 5, 8) 
185: fil1(464, 272, 495, 287, 15) 
186: box( 32, 329, 159, 415, 8) : box( 192, 329, 351, 431, 8) 
187: box( 384, 329, 479, 399,8) : line( 32, 336, 159, 336, 8) 
188: line( 32, 352, 159, 352, 8) : line( 32, 384, 159, 384, 8) 
189: line( 64, 352, 64, 415, 8) : line( 96, 336, 96, 351, 8) 
199: line(144, 352, 144, 415, 8) : line(192, 336, 351, 336, 8) 
191: line(192, 352, 351, 352, 8) : line(272, 336, 272, 431. 8) 
192: line(384, 336, 479, 336, 8) : Iine( 16, 144, 495, 144, 5) 
193: psymbol1(32, 329, "Rec/Play Count ", の 
194: symbol(32, 352, "REC ", 1 2, 1 5 の 
955 symbol(32, 384, “PLAY", 1 2, 1 5 0) 
196: psymbol1(32, 336, ” Second ", 4) 
197: psymbol1(96, 336, "Count ", の 
198: for 」j= ] to 13 
199: J」=j」\2 8 
299: ine(152 - j,」 354+ 1152 +」 354 ょ ji 1 の 表示 の 初期 人 
21: line(152 - j, 382 - ij, 152 +」, 382 - ji 1 の 
292: line(152 - j」, 385+ ji 152+j, 385+ ii 19) 
293: line(152 - j, 414 - ji 152+ 414 - ii 1 
24 : line(466 + ij, 288- j, 466+ 289+ 1 の 
295: line(494 - ij, 288 - j, 494 - ij 289+ 19 の 
296: next 
207: psymbol1(192, 336, ” REC "。 MM 
298: psymbol1(272, 336, "PLAY "の 
299: pSymbol1(192, 329, ” Sampling Freqauency ", の 
218: dispfreq() 
2 for ji= 1 to 4 
212: line(i * 1 中 + 16, 142, ij* 1 釣 + 16, 146, 5) 
213: st = "キツ + itoa(i * 1 釣 ) 
214: symbol(i * 1 劉 , 148, st, 1, 1, 9, 5, の 
215・ next 
216: psymbol1(384, 329, "Sound Mode ", の 
217: dispmode() 
218: disptime() 
219: fi11(16, 272, 143, 287, 15) : fill(394, 272, 431, 287, 15) 
229: psymbol1(16, 272, "Base Point:” + space$(5 - strlen(itoa(xbase))) + it 
oa(xbase), 4) 
221: psymbol1(394, 272, "Data Point:” + space$(5 - strlen(itoa(dataptr))) + 
itoa(dataptr), 4) 
222: vpage(15) 
223: endfunc 
224: /* 
Z】 
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225: /* display Sound-Output-Mode 
226: /* 
227: func dispmode() 
228: apage( り ) 
229: for i=!to3 
239: psymbol1(384, 336 + (ji * 16), sndstr(i), の 音声 出力 モー ド の 表示 
231: next 
282: psymbol1(384, 336 + (mode * 16), sndstr(mode), 4) 
233: endfunc 
234: /* 
235: /* change Sound-Output-Mode 
236: /* 
237: func chmode(x, y) 
238: mode = (y - 336)\16 |。 上 | 
239: dispmode() 
249: endfunc 
241: /* 
242: /* display Sampling Frequency 
243: /* 
244: func dispfreq() 
245: int i 
246: apage( り ) 
247: for i=to4 
Z48: psymbol1(192, 352+ (ji * 16), "リュ fTqstr(D), の サン プリ ング 
249: psymbol1(272, 352+ (ji * 16)," " ェ frqstr(D。 の 周波 数 の 表示 
259: next 
251: psymbol1(192, 352 + (recfreq * 16),” "+ ュ frqstr(recfreq), 4) 
202$ psymbol1(272, 352 + (playfreq * 16)," "+ frqstr(playfreq), 4) 
253: endfunc 
254: /* 
255: /* change Sampling Frequency 
256: /* 
257: func chfreq(x, y) 
258: 1 も は 
259: apage(9) 
269: switch (x - 192) \ 89 
261: case 
262: recfreq = (y - 352) \ 16 
263: break 1 サン プリ ング 周波 数 の 変更 
264: Case 1 
265: playfreq = (y - 352)\ 16 
266: break 
267: endswitch 
268: dispfreq() 
269: disptime() 
279: endfunc 
271: /* 
272: /* Get Data Count Gain 
273: /* 
274: func jnt getgain(freq) 
275: iftmd=gthen { 
276: switch freq 
2 case 
278: return(1959 
279・ case 1 
289: return(26 釣 ) 
281・ case 2 MT デー タ の 活 費 量 ( バ 得 
282: return(3989) 1 秒 当たり の ADPCM デ ー タ の 消費 量 ( バ イト ) を 得る 
283: case 3 
284: return(529) 
285: case 4 
286: return(789) 
287: endswitch 
288: ) else return(1) 
289: endfunc 
1』Z2 
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389: /* ネ 

32891: /* display Time or Count 

二 時 に /* 

293: func disptime() 

294・ int i 

295: str data 

296: apage(9) 

297: fil1(65 , 353, 142, 366, 15) : filI(65 , 385, 142, 898, 15) 録音 / 再 生 時 間 ま た は 
298: 1 = getgain(recfreq) : data = itoa((reccount+」-1)\5) PCM デ ー タ の 個数 を 表示 
299: psymbol1(64, 352, space$(19 - strlen(data)) + data, 4) 

399: i = getgain(playfreq) : data = itoa((playcount+iー1)\ 1) 

31: psymbol1(64, 384, space$(19 - strlen(data)) + data, 4) 

392: endfunc 

393: /* 

394: /* change Time or Counter 

395: /* 

396: func chtime(x,y) 

397: switch (y - 352)\ 16 

398: case 

399: reccount = reccount + getgain(recfreq) : break 

319: case 1 

311: reccount = reccount - getgain(recfreq) : break 

交 12: case 2 

313: playcount = playcount + getgain(playfreq) : break 

314: caSse 3 録音 / 再 生 時 間 を 1 秒 単 位 また は 
315: playcount = playcount - getgain(playfreq) : break デー タ 1 個 単 位 て 変更 
316: endswitch 

317< if reccount <9then reccount = 9 

318: if reccount > 65536 * 2 then reccount = 65536 * 2 

3H9: if playcounnt < 時 then playcount = 9 

329: if playcount > recsize * 2 then playcount = recsize * 2 

92 上 for x =to 1 暑 99 : next 

322! disptime() 

323: endfunc 

324: /* 


325: /* change Time-mode 
326: /* tmd = 9...Seconds[+1 and -1] 
) 寺 ま 





327: /* .Count of Array[+]1 and -1] 
328: /* 

329: func chtmd(x, y) 

339: apage(9) 

331: switch (x - 32)\ 64 

332: case 

333: tmd = 

334: psymbol1(32, 336, "Second ", 4) 
335: psymbol1(96, 336, "Count ", の 
336: psymbol1(64, 368, " Sec ", 角 
337: psymbol1(64, 4 吸 , " Sec ", の 
338: break 録音 再生 時 間 の 表示 ( 秒 プ デー タ 
339: case 1 個数 ) の 切換 え 
34: tmd = 1 

341: psymbol1(32, 336, ” Second ", の 
342: psymbol1(96, 336, "Count ", 4) 
343: fill(65, 869, 143, 383, 15) 

344: fil1(65, 491, 143, 414, 15) 

345: break 

346: endswitch 

347: disptime() 

348: endfunc 

349: /* 

359: /* Mouse Cursor Position 

351: /* 


352: func jnt poschk(x, y) 
353: X=x\16:y=y\16 
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354: if28<xandx<31andy= 17 then return(1) /* mmOVeWav 
e() 

355: if1<xandx<19and y = 21 then return(2) /* chtmd() 

356: ifx=9and21<yandy<26 then return(3) /* chtime( 
) マウ スカ ー ソ ル の 位置 

357: ifll<xandx<22and2l<yandy<27 then return(4) が * chfreq( | を 交 す る 
) 

358: if 23<xand x<39and29<yandy<25 then return(5) /* chmode( 
) 

359: return(0) /* nothing 

/ 

369: endfunc 

361: /* 

362: /* Execute Commands 

363: /* 

364: func int adcont() 

365: int xy, L, R 

366: int count, group 

367: int j, size 

368: count = jnford() 

369: m = 

379: while count >= 

371: msstat(x, y, L, R) 

372: mspOS(x, y) 

373: if R then { 

374: color 3 : cls 

375: gToup = menu(64) 

376: switch (group) 

377・ case 11 

378: i = selectfile(count) 

379: if i =ERR then break 

389: size = adread(i) 

381: if size >= then { 

382: TeCSize = Size 

383: reccount = recsize * 2 

384: playcount = reccount 

385: recfreq = val(st_smpfrq(i)) 

386: playfreq = recfreq 

387: disptime() 

388: dispfreq() 

389: adpcm2pcm(recsize * 2) 

399: dirty = 9 

391: xbase = 9 : dataptr = 

392: dispwave() 

393: } 

394: break 

395・ Case 12 

396: i = selectfile(count) 

397: if 」= ERR then break 

398: if dirty then pcm2adpcm(recsize * 2) : 

399: adwrite((reccount + 1) \ 2, i) 

499: infowr(count) 

4 : break 

492: case 13 

493: i = selectfile(count) 

494: if 」=ERR then break 

495: ren(i) 

496: infowr(count) 

497: break 

48: case 14 

499: 1 = selectfile(count) 

419: if ij=ERR then break 

411: 1 = del(i, count) 

412: if i>=then count = i 

』/ オ 4 
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413: infowr(count) 

414: break 

415: case 15 

416: 1 = newfile(count) 

し W 人 ifi>then count = i 

418: infowr(count) 

419: break 

42: case 16 

421: return() 

422: caSe 21 

423: if dirty then pcm2adpcm(recsize * 2) : dirty = 9 
424: if playcount <= 9then break 

425: a_play(ADPCMdata, playfreq, mode, (playcount + 1)\2) 
426: break 

227 case 22 

428: ifreccount <= then break メニ ュー て 選択 され た 
429: recsize = (reccount+ 1)\2 コマ ンド の 実行 
43: a_rec(ADPCMdata, recfreq, recsize) 
431: adpcm2pcm(recsize * 2) : dirty = 9 
432: if playcount > reccount then playcount = reccount 
433: xbase = : dataptr = 

434: disptime() : dispwave() 

435: break 

436: caSe 31 

437: datacut() 

438: dirty =notM 

439: break 

44: endswitch 

441: ) else ifL then { 

442: switch poschk(x, y) 

443: case 1 : movewave(x, y) : break 

444: case 2 : chtmd(x, y) : break 

445: case 3 : chtime(x, y) : break 

446: case 4 : chfreq(x, y) : break 

447: case 5 : chmode(x, y) : break 

448: endswitch 

449: ) 

450: endwhile 

451: for i=to9: beep : next 

452: endfunc 

453: /* 

454: /*read files′ Information 

455: /* 

456: func jnt inford() 

457: int ji, fp 

458: Str dr, smp, tm, Cm 

459: fp = fopen("ADPCMED.DIR", "Tr") 

469: iffp<then ( 

461: fp = fopen("ADPCMED.DIR”, "c り ) 

462: iffp< 多 then { 

463: errdisp("Can't create Directory-File") 
464: return(ERR) 

465: } 

466: fclose(fp) 

467: return( の 

468: } 

469: for i=to DIRMAX 管理 用 ファ イル か ら 情 報 を 得る 
479: freads(dr, fp) 

471: freads(smp, fp) 

472: freads(tm, fp) 

473: freads(cmm, fp) 

474: dirs(i) = dr 

475: st_smpfrq(i) = smp 

476: st_time(i) = tm 
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477:・ comment(i) = cmm 
478: if feof(fp) <> then break 
479: next 
48 上 : fclose(fp) 
481: return(i) 
482: endfunc 
483: /* 
484: /* write files'′Information 
485: /* 
486: func int infowr(cnt) 
487: int 1 す ,。 5 
488・ str crlf 
489: crlf = chr$(13)+chr$(19) 
499: fp = fopen("ADPCMED.DIR", "c り ) 
491: iffp < 上 then { 
492: errdisp("Can't open Directory-File") 
493: return(ERR) 
494: 
0 AM 1 き 1 管理 用 ファ イル に 情報 を 書き 込む 
497: fwrites(dirs(i) + crlf, fp) 
498: fwrites(st_smpfrq(i) + crlf, fp) 
499: fwrites(st_time(i) + crlf, fp) 
509: fwrites(comment(i) + crlf, fp) 
591: next 
592: fwrites(crlf + chr$(&H1A), fp) 
593: fclose(fp) 
594: return(cnt + 1) 
595: endfunc 
596: /* 
597: /* show one file 
598: /* 
599: func adir(py, cnt) 
519: ocate 1, py 
IS print space$(62) 
512: ocate 1, py 
513: print dirs(cnt) 
514: ocate 25, py 還 デ リ 表 示 
515: print frqstr(val(st_smpfrq(cnt))) 信 OAUE ob 
516: ocate 33, py 
517: print space$(5 - strlen(st_time(cnt))):st_time(cnt) 
518: ocate 39, py 
519: Print comment(cnt) 
529: endfunc 
521: /* 
522: /* show all files 
523: /* 
524: func dir(py, cnt) 
525: int ji 
526: locate 1, py : color 11 
2 な Print "Filename Smp.Frq. Time Comment 
隊 nA 9 匠 用 フ ァイル に 登録 れ て いる すべ て の 
59: ferf= せ お 病 も <1 ファ イル の ディ レク トリ を 表示 
531: adir(py + ji, i) 
532: next 
533: print 
534: endfunc 
535: /* 
536: /* select a file 
537: /* 
538: func int selectfile(cnt) 
539: NE < R 
54: int pt, opt 
1Z6 
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541 : vpage() 
542・ opt = -] 

543: dir(2, cnt) 

544: repeat 

545: msstat(x, y,[L, R) 

546: mspos(x, y) 

547・ pt =y\16-2-1 

548: if pt = opt then continue 

549: if (9 <= opt) and (opt < cnt) then 【 も 
559: color 11 : adir(opt + 2+ 1, opt) | イク 吉 択 
3 } 

552: if (9 <= pt) and (pt < cnt) then 【 
1 color 3 : adir(pt+ 2 + 1, pt) 
554: } 

S55: opt = pt 

556: until L 

557: color 3 : cls 

558: vpage(15) 

559: if (9 <= pt) and (pt < cnt) then return(pt) 
568: return(ERR) 

561: endfunc 

562: /* 

563: /* New File 

564: /* 

565: func int newfile(cnt) 

566: int fp, size 

567: str crlf, com[23] 

568: Ypage( り ) 

569: mSgclr() 

57: if cnt > DIRMAX then { 

571: errdisp("No filename area”) 

872・ vpage(15) : return(ERR) 

573: } 

574: crlf = chr$(13)+chr$(19) 

575: locate 29, 9 

576: print "Input New-File's Filename" 

847 dirs(cnt) = left$(fname(19), 22) 

578: if dirs(cnt) = "" then vpage(15) : return(ERR) 
579: for fp =tocnt - 1 

58 凶 : if dirs(fp) = dirs(cnt) then { 

581: vpage(15) 

582: errdisp("Duplicate file name”) 
5898: return(ERR) 

584: } 

585: next 管理 用 フ ァイル に 登録 する 
586: locate 29, 11 

587: print “Comment Please (24 chars)” 

588: locate 18, 12 

589: linput com 

599: color 3 : cls : ypage(15) 

591: if com = "" then com = リッ 

592: comment(cnt) = left$(com, 24) 

593: St_smpfrq(cnt) = jitoa(recfreq) 

594: fp = fopen(dirs(cnt), "Tr ウ ) 

595: iffp <9then fp = fopen(dirs(cnt). ”"c") 
596: iffp < then { 

597: errdisp("Can't Create New-File”) 

598: return(ERR) 

599: } 

69M: 1 = fseek(fp, 9, 2) 

691: ifi<gthen ij = 時 else if i> 65536 then ij = 65536 
692: st_time(cnt) = itoa(i) 

693: fclose(fp) 

694: return(cnt + 1) 





695: endfunc 





ZZ 
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696: /* 

697: /* read ADPCM data from a file 

698: /* 

699: func int adread(i) 

619: int fp, rsize 

611: fp = fopen(dirs(i), 『 う ) 

612: iffp<then { 

613: errdisp("Can't Open for READ”) 

614: return(-1) 

615: } 

616: locate 9 29 : color 3 : print "Now Reading" 5 > か 
617: rsize = fread(ADPCMdata, 65536, fp) ADPCM デ ー タ の 読込 み 
618: fclose(fp) 

619: locate 9 29 : color 3 : print space$(63) 
62: ifrsize < 上 then { 

621: errdisp("Can't Read") 

622: return( の 

623: } 

624: return(rsize) 

625: endfunc 

626: /* 

627: /* write ADPCM data to a file 

628: /* 

629: func jnt adwrite(size, i) 

639: int fp, wsize 

631: fdelete(dirs(i)) 

632: fp = fopen(dirs(j), "c") 

633: iffp<gthen ( 

634: errdisp("Can't Open for WRITE”) 

635: return(ERR) 

636: ) 

637: if size > dskf( の ) then 【 

638: errdisp("Disk full!”) 

639: return(ERR) 

649: ADPCM デ ー タ の 書込み 
641: locate 9 29: color 3 : print "Now writing” 
642: wsize = write(ADPCMdata, size, fp) 

643: fclose(fp) 

644: locate 9 29 : color 3 : print space$(63) 
645: if wsize <size then { 

646: errdisp("Can {t Write”) 

647: return(ERR) 

648: | 

649: st_smpfrq(i) = itoa(recfreq) 

659: st_time(i) = itoa(size) 

651: return(size) 

652: endfunc 

653: /* 

654: /* rename a file 

655: /* 

656: func ren(i) 

657: str fn 

658: vpage(9) 

659: mSgclr() 

66: locate 23, 9 

661: print "Enter New Filename" ファ イル 名 の 変更 
662: fn = fname(19 

663: if fn = ”” then vpage(15) : return(⑧) 
664: frename(dirs(j), fn) 

665: dirs(i) = fn 

666: color 3 : cls : vpage(15) 





667: endfunc 
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668: 
669: 
679: 
671: 
672: 
673: 
674: 
675: 
676: 
677: 
678: 
679: 
689: 
681: 
682: 
683: 
684: 
685: 
686: 
687: 
688: 
689: 
69: 
691: 
692: 
693: 
694: 
695: 
696: 
697: 
698: 
699: 
7 釣 : 
791: 
792: 
793: 
794: 
795: 
706: 
77: 
798: 
799: 
71: 
MI 
2 
人 M3 じ 
714: 
715: 
716: 
27< 
718: 
2 人 98 
729: 
2 
7226 
723: 
724: 
725: 
726: 
7275 
728: 
729: 
730: 
731: 


/* 
/* delete a file 
/* 
func jint del(i, cnt) 
int j 
forj=itocnt-2 
dirs(j) = dirs(j」+ 1) 
st_smpfrq(j) = st_smpfrq(j+ 1) 
st_time(j) = st_time(j」+ 1) 
comment(j) = comment(j」+ 1) 
next 
return(cnt - 1) 
endfunc 
/* 
/* open message window 
7 が 
func msgclr() 
int i 
color 11 
for iji=to 15 
locate 16, 8+ ji 
next 
endfunc 
/* 
/* print error-message 
/* 
func errdisp(mesistr) 
mSgclr() : beep 
locate (64 - strlen(mes)) \ 2, 15 : 
endfunc 
/* 
/* jnput fjilename 
/* 
func str fname(y) 
str fn[21] 
locate 18, y : linput fn 
jf fnchk(fn) = ERR then { 
errdisp("Can't use path”) 
return("") 


・ print space$(32) 


PFInt mes 


return(fn) 

endfunc 

/* 

/* check file-name 

が 

func jnt fnchk(fnistr) 
if strchr(fn,。 に ) >= then return(ERR) 
if strchr(fn, 「/") >= 9 then return(ERR) 
ijf strchr(fn, &H5C) >= 9 then return(ERR) 


if fn = "” then return(ERR) 
return( の 
endfunc 
/* 
/* djsplay Wave Form of PCM data 
/* 
func dispwave() 
int ji, ly, oly 
apage( 1 ) 


fil1(16, 16, 495, 271, の 
window(16, 16, 495, 271) 
for ij = 多 to 479 
if xbase + ji >=recsize * 2 then break 








ファ イル の 削除 





メッ セー ジ 出 力 用 の 
ウィ ンド ウ を 開く 


エラ ー メ ッ セ ー ジ の 表示 


ファ イル 名 の 入力 


ファ イル 名 中 に 無効 な 文字 が な いか 調べ る 


line(i + 16, 144, ij + 16, 144 - getleyel(xbase + 1) \8, 13) 


next 





7Z9 


3 章 X-BASIC プロ グラ ミン グ ガ イド 











923 ifi<489then line(i + 16, 16, ij+ 16, 271, 11) 
783 window( 511, 511) 

734: endfunc 

735: /* 

736: /* move Wave Form of PCM data 

737: /* 

738: func movewave(x, y) 

739: ifreccount < 489then cls : beep : return(ERR) 
74: switch (x - 464) \ 16 

741: case 

742: xbase = xbase - 39 

743: if xbase <9then xbase = ! 

744・ break 

745: case 1 

746: xbase = xbase + 3 盟 3 
747: if xbase > reccount - 1 角 then xbase = reccount - | 盟 2 
748: break 

749: endswitch 

759: apage(!) 

75 選 : fil1(96, 272, 143, 287, 15) 

752: psymbol1(96, 272, space$(6 - strlen(itoa(xbase))) + itoa(xbase), 4) 
753: color 3 

754: locate , 29 : print "Moving Now.……" 

755: dispwave() 

756: locate 9 29 : print space$(14) 

757: endfunc 

758: /* 

759: /* move Data-Pointer 

76: /* 

761: func jint dptrmove(msx) 

762: int xy, ox, dx, dy, L, R 

763: str dt 

764: mSarea(msx, 16, 495, 271) 

765: mspos(ox, dy) 

766: repeat 

767: apage(2) 

768: msstat(dx, dy, L, R) 

769: mSpos(x, y) 

779: line(ox, 16, ox, 271, の 

AL dataptr = xbase+ x - 16 

772: if dataptr >= recsize*2 then dataptr =recsize *2- 1 
773: x = dataptr - xbase + 16 

774: line(x, 16, x, 271, 9) 

775: dt = itoa(dataptr) 

776: My 

777: fi11(384, 272, 432, 287, 15) 
0 smbol1(G84. 272, space$(6 - strlen(dt)) + dt, 4) 2 
78 衣 until L or R 

781: msarea(, 9, 511, 511) 

782: apage(2) 

783: line(ox, 16, ox, 271, の 

784: apage(3) 

785: line(ox, 16, ox, 271, 9) 

786: if R then { 

787: apage(3) 

788: fil1(16, 16, 495, 271, の 

789: return(ERR) 

799: 

791: repeat 

792: msstat(dx, dy, L, R) 

793: untilL = 

794: return(dataptr) 

795: endfunc 
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796: /* 

797: /* cut PCM data 

798: /* 

799: func datacut() 

8 盟 : int ji, j,k, 1, n, sjize 

891: int src, dst 

892: src = dptrmove(16) 

893: if src <then return() 

894: dst = dptrmove(src - xbase + 17) 

895: if dst < then return() 

896: apage(3) 

897: filI(src - xbase + 17, 16, dst - xbase + 15, 271, 4) 
898: locate 9 29 : print "Cutting Now.……" 

899: Size = recsize * 2 - dst - 1 

819: if size >then { 

811: dst = dst + 1 

812: if size <= 64 then 【 

813: Size = size - 1 

814: for i= 上 to size 

815: putlevel(src + ij, getlevel(dst + ji)) 
816: next 

817: size = size + 1 

818: ) else { 

819: n = size\64 - 1 

829: 1 =(n+ 1) * 64 

821: 1=g デー タ の カッ ト 
822: while i< 1 

823: forj=gton 

824: k =i+j 

825: putlevel(src + k, getlevel(dst + k)) 
826: next 

827: に Ch RW] 

828: print "xi 

829: endwhile 

83: n = ji+ (size mod 64) - 1 

831: for ij=iton 

832: putlevel(src + ji, getlevel(dst + i)) 
833: next 

834: 

835: } 

836: locate 29 : color 3 : print space$(128) 

837: reccount = sro + size 

838: if playcount > reccount then playcount = reccount 
839: recsize = (reccount + 1)\2 

848: disptime() 

841: apage(3) 

842: fill(16, 16, 495, 271, 9) 

843: dispwave() 

844: endfunc 

845: /* 

846: /* get ADPCM data 

847: /* 

848: func jnt getdata(dtp) 

849: if dtp and 1 then { 

85: return((ADPCMdata(dtp \ 2) shr 4) and 15) 
851: }) else ADPCM デ ー タ を バッ ファ か ら 1 個 と り 出 す 
852: return(ADPCMdata(dtp \ 2) and 15) 

853: } 

854: endfunc 
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855: /* 
856: /* put ADPCM data 
857: /* 
858: func putdata(dtp, data) 
859: int ptr 
869: ptr = dtp\2 1 
861: if dtp and 1 then 4 あ 
862: ADPCMdataptr) = (data shl 4) or ADPCMdata(ptr) and 引っ し 生き 
863: }) else { 
864: ADPCMdata(ptr) = (ADPCMdata(ptr) and &HF9) or data 
865: 
866: endfunc 
867: /* 
868: /* get PCM level 
869: /* 
879: func int getlevel(dtp) 
871: if dtp < 65536 then 【 
872: return(PCMdata(9, dtp)) 
873: }) else { PCM デ ー タ を バッ ファ か ら 1 個 と り 出す 
874: return(PCMdata(1, dtp - 65536)) 
875: } 
876: endfunc 
877: /* 
878: /* put PCM level 
879: /* 
889: func putlevel(dtp, level) 
881: if dtp <65536 then 【 
882: PCMdata(9, dtp) = level 
883: }) else { PCM デ ー タ を バッ ファ に 1 個 だ け 書 き 込む 
884: PCMdata(1, dtp - 65536) = level 
885: 
886: endfunc 
887: /* 
888: /* convert from PCM data to ADPCM data 
889: /* 
899: func pcm2adpcm(size) 
891: int 1 J,k, 1, n, data, lvy, olv = 
892: locate 9, 29 : color 3 : print "Converting Now..……. (PCM -> ADPCM)" 
893: padeltanum = : apdeltanum = ! 
894: if size <= 64 then { 
895: size = size - 1 
896: for i =to size 
897: ly = getlevel(i) 
898: data = enADPCM(Iv - oly) 
899: putdata(i, data) 
99: ly = oly + deADPCM(data) 
9g1: olv = ly 
992・ next 
993: ) else 【 
994: n =size\64 - 1 
995: 1 =(n+ 1) * 64 
996: 1 = 
997・ while i< 1 
908: forj=9ton 
999: k =i+j 
919: ly = getlevel(k) PCM デ ー タ を ADPCM デ ー タ に 変換 
911: data = enADPCM(lv - oly) 
912: putdata(k, data) 
913: lv = oly + deADPCM(data) 
914: olvy = lv 
9 next 
916: 1 ミ =i+Tn+ 1 
NG print "*' 
918: endwhile 
782 
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919: n = ji+ (size mod 64) - 1 

929: for i=iton 

821: ly = getlevel(i) 

922・ data = enADPCM(lv - oly) 

923: putdata(i, data) 

924: ly = oly + deADPCM(data) 

925: olv = lv 

926: next 

927: B 

928: locate , 29 : color 3 : print space$(128) 

929: endfunc 

939: /* 

331: func int enADPCM(def) 

932: int d, data = 

933: if def < 上 then def = abs(def): data = 8 

934: d = delta(padeltanum) 

935: if def>dthen def =def -d: data =data or 4 

936: d=d\2 

6 旨 の then def =def -d: data = data or 2 PCM デ ー タ の 差分 を 

8 = ADPCM デ ー タ に 変換 

939: if def>dthen def =def -d: data = data or 1 

949: padeltanum = padeltanum + step(data) 

941: if padeltanum > 48 then padeltanum = 48 else jif padeltanum <9 then pa 
deltanum = 

942: return(data) 

943: endfunc 

944: /* 

945: /* convert from ADPCM data to PCM data 

946: /* 

947: func adpcm2pcm(size) 

948: int ij, k, 1, n, level = 9 

949: locate 29 : color 3 : print "Converting Now.……. (ADPCM -> PCM)" 

959: apdeltanum = 9 

951: if size <= 64 then { 

952: Size = size - 1 

953: for i=to size 

954: level = level + deADPCM(getdata(i)) 

955: putlevel(i, level) 

956: next 

957: }) else { 

958: nh = size\64 - 1 

959: =(+1) * 64 

969: 1i = 

961: while i< | の こき 

1 for 和 ( 9 PCM デ ー タ に 記 換 

964: level = level + deADPCM(getdata(k)) 

965: putlevel(k, leyel) 

966: next 

967: 1=ji+Tn+l 

968: print "*5 

969: endwhile 

97 久 n = 」+ (size mod 64) - 1 

971: fori=ijiton 

972: level = level + deADPCM(getdata(i)) 

973: putlevel(i, level) 

974: next 

975: ) 

976: locate 29 : color 3 : print space$(128) 


977・ endfunc 
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978: /* 
979: func jnt deADPCM(data ) 
989: jnt d, def = 
981: d = delta(apdeltanum) 
982: if data and 4 then def = d 
983: d =d\2 
984: if data and 2 then def = def+d 
985: d=d\2 ーー 
986: ifdataandlthendef=defrd 人 
987: d=d\2 差分 に 変換 
988: def = def+d 
989: apdeltanum = apdeltanum + step(data) 
99: if apdeltanum > 48 then apdeltanum = 48 else if apdeltanum < 9 then ap 
/ deltanum = 
991: if data and 8 then return(-def) 
992: return(def) 
993: endfunc 
994: /* 
995: /* print symbol 1 x 1 
996: /* 
997: func psymbol1(x, y, mesistr, cl) 
998: Symbol(x,。 y, mes, 1, 1, 1, cl, の) 


999: endfunc 


( 注 ) C Compiler PRO-68k を お 持ち の 方 は 、 こ の プロ グラ ム を コン パイ ル す れ ば , 
快適 な 速度 で 使用 する こと が で きま す . その 場合 , Human68k の コマ ンド 
ライ ン で 区 の よう に 入力 し て くだ さい . 


A> CC グ hIOK プ sI0K ADPCM.BAS 
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(J ee ゃ トー 
X680U0U0U の プロ グラ ミン グ 環 境 
XBBOOO 上 で , 本 格 的 な プロ グラ ミン グ を 始め よう と 思っ て 
いる 方 に と っ て は , HumanBBk の シス テム ディ スク に 付属 の ソ 
フト ウェ ア だ け で は 十分 で は あり ませ ん . そこ で ,「C Compiler 
。 PHO-BBk」 と いう ソフ トウ ェ ア 開 発 キ ッ ト が 別売 で 用 意 さ れ て 
いま す . この パッ ケー ジ を 購入 する こと で , 優れ た 開発 環境 を 手 に 
入れ る こと が で きま す . 
^ 。  . こ の 章 で は , この パッ ケー ジ に 含ま れ て いる 環境 を 人 説 する こと 
で, XBB80 ロ 0O の 可能 性 に つい て 知る こと に し まし ょ う . 














4.| パッ ケー ジ の 内 容 を 確か め る 


4. ] パッ ケー ジ の 内 容 を 確か め る 


C Compiler PRO-68k に は ,C コ ン パ イラ は も ちろ ん の こと こと, ソフ トウ ェ ア 開 発 に 欠か すこ と 
の で き な い ツー ル 類 , ライ ブラ リ 群 が 付属 し て いま す . これ ら を うま く 使 いこ な す た め に , と り 
あえ ず パ ッ ケ ー ジ の 全貌 を な が め て みる こと に し まし ょ う . 





4.]1.1 ノイ つ の 言語 処理 系 

言語 処理 系 と し て ,。C コン パイ ラ (X-C), X-BASIC か ら C へ の コン バー タ (BASTOC), X 
-BASIC イン ター プリ タ , アセ ンプ ラ と いう 4 つが 含ま れ て いま す . これ ら の 言語 は , プロ グラ ム 
の 性 質 に 応じ て , 次 の よう に 使い 分 ける こと が で きま す . 


・C … 比較 的 大 き な プ ログ ラム の 記述 に 向い て いる 

・X-BASIC イン ター プリ タ … カッ ト ア ンド トラ イ を し な が ら プ ログ ラム で きる 
・BASTOC … XX-BASIC で 作っ た プロ グラ ム を コン パイ ル し , 高速 化す る こと が で きる 
・ ア セン プラ … より 細か な 処理 。 そし て 高速 性 や コン パク ト さ を 追求 し た プロ グラ ム を 記 


述 す る こと が で きる 


そし て , も っ と も る 特徴 的 な こと と し て , これ ら の 言語 を 有機 的 に 結び つけ て 扱う こと が で きる 
環境 が 提供 され て いる 点 を あげ られ ます . つ まり , 1 つの プロ グラ ム 中 で も , その モジ ュー ル の 性 
質 に よっ て 最も 適し た 言語 で プロ グラ ム す る こと が で きる よう に な る わけ で す . こ うし た 環境 は , 
これ まで の 開発 パッ ケー ジ で は 実現 きれ て いな か っ た も の で あり , X68000 を 使う 上 で 見 逃 せ な 
い 特 徴 と いう こと が で きる で し ょ う . 

な お , これ ら の 言語 処理 系 は , 各々 単独 で 動作 する わけ で は あり ませ ん の で , 通常 目 に 触れ て 
いな い フ ァイル を むやみ に 消し た りす る と 動作 し な く な る こと も あり ます . 依存 関係 を 図 4.1 に 
示し て お きま す . この 図 は , 上 位 の 言語 処理 系 は 下位 の 言語 処理 系 に 依存 し て いる と いう こと を 
表し て いま す . 











図 4.1 4 つ の 言語 間 の 相互 依存 関係 
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一 じ コン バイ ラ 

も と も と C 言 語 は 。 その バイ ブル と で も いう べき , B.W.Kernighan & D.M.Ritchie の 「The 
C Programming Language」 (石田 晴久 訳 「 プ ログ ラミ ング 言語 C」, 共立 出版 。1981) で 解説 さ 
れ て いる 仕様 を 基本 と し て いま し た が , 各社 が 製品 化 の 段階 で 独自 の 拡張 を 施し た こと も あり , 
現在 で は よほど 意識 し て プロ グラ ミン グ し な い 限 り , 完全 な 移植 性 は 失わ れ て し まっ た と いっ て 
も 過言 で は な いで し ょ う . 

こう し た 状況 を 解決 する た め に , アメ リカ で は “ANSI 仕様 ? と いう 規格 の 制定 作業 が 進め られ 
て いま す . ANSI と は , 日 本 の JIS に 相当 する 規格 で あり , 仕様 が 決定 され た あと は 各 ソ フト ウェ 
会 社 と も , この 仕様 に 準拠 し た C 言 語 を 開発 する こと に な る で し ょ う . 

表 4.1 に ^ び K&R の C” と XX-CZ。 そし て “ANSYI 仕様 (暫定 版 ) の C” の 相違 点 を あげ て お 
と で と WO し まあ 555 


ビット フ ィ ー ル ド 
同一 メン バー 名 の 存在 
構造 体 の 値 渡し 


Void 














enurm 





Signed 





CoOnst 











volatile 
*※ は キー ワー ド と し て 定義 され て いる が , 使え な い 








表 4.1 KRH, X-C, ANBI, の 仕様 比較 (概略 ) 


え -C も 基本 的 に は ANSI の 仕様 に 沿っ た 機能 を 持っ て いま す が , const, volatile 宣言 の よう に 
サポ ー ト され て いな い 機 能 ち あります. し か し , 予約 語 と いう 扱い に な っ て いま す の で , 今後 の 
バー ジョ ン ア ッ プ が 期待 で きま す . 

また , じ コン パイ ラ の 多く は , コン パイ ル の 作業 に か か る 時 間 を 短縮 する た め , アセ ンプ ブラ を 使 
わ ず に , 直接 オブ ジェ クト を 生成 する こと が で きる よう に な っ て いま し た . し か し ,。X-C コン パ 
イラ で は アセ ンプ ブラ の ソー スプ ログ ラム まで し か 生成 せ すず が,。 オブ ジェ クト の 生成 は アセ ンプ ブラ に 
まかせ て いま す . 

え -C は 表 4.2 の よう な いく つか の プロ グラ ム か ら 成 り 立 っ て いま す . これ ら の プロ グラ ム は C 
Compiler PRO-68k の シス テム ディ スク の ,。 CC と いう ディ レク トリ の 下 に 格納 され て いま す 。 
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4.| パッ ケー ジ の 内 容 を 確か め る 


# で 始ま る 命令 の 実行 

C の ソー スプ ログ ラム の 構文 解析 

CCO.X が 作り 出し た 構文 木 か ら アセ ン ブ ラ の プロ グラ ム の 作成 
作成 する プロ グラ ム の 最適 化 

















表 4. 己 コンパ イラ の 構成 


還 X- 旭 AGIC イン ター プリ タ 

え -BASIC( バ ー ジ ョ ン 2.00) は , Human68k の シス テム ディ スク に 付属 し て きた X-BASIC 
(バー ジョ ン 1.00) と 比べ 文法 的 な 相違 は な いも の の , 浮動 小数 点 演算 と FM 音源 関係 の 命令 を 処 
理 する 内 部 的 な 方 法 が 異な っ て いま す . バー ジョ ン 1.00 で は , 浮動 小数 点 演算 は X-BASIC 本 体 
内 に ,FM 音源 関係 の 命令 は 外部 関数 の ファ イル (MUSIC.FNC) に 組み 込ま れ て いま し た が , バ ー 
ジョ ン 2.00 で は ,。 デバ イス ドラ イ バ で 処理 する よう に 統一 され て いま す . この よう な 方 式 に する 
こと で , ハー ドウ ェ ア の 変更 が あっ た 場合 で も , 処理 系 や 外部 関数 を 変更 する こと な くそ れ に 対 
応 す る こと が で きま す . 

え -BASIC 関連 の ファ イル は 。C Compiler PRO-68k の シス テム ディ スク の BASIC2 と いう 
ディ レク トリ の 下 に 格納 され て いま す ( 表 4.3) 


BASIC.X X-BASIC イン ター プリ タ の プロ グラ ム フ ァ イル 

BASIC.CNF X-BASIC イン ター プリ タ の コン フィ ギュ レー ショ ン フ ァイル 
AUDIO.FNC AUDIO 外部 関数 の プロ グラ ム フ ァ イル 

GRAPH.FNC GRAPH 外部 関数 の プロ グラ ム フ ァ イル 

MOUSE.FNC MOUSE 外部 関数 の プロ グラ ム フ ァ イル 

MUSIC.FNC MUSIC 外部 関数 の プロ グラ ム フ ァ イル 

SPRITE.FNC SPRITE 外部 関数 の プロ グラ ム フ ァ イル 

STICK.FNC STICK 外部 関数 の プロ グラ ム フ ァ イル 

IMAGE.FNC IMAGE 外部 関数 の プロ グラ ム フ ァ イル 
































表 4.3 X-BASIC イン ター プリ タ の 構成 


画 BASTOOC コン バー タ 
BASTOC コン バー タ は , 構造 化 プ ログ ラミ ング が で きる と いう XX-BASIC の 特徴 を 活か し て 
記述 し た X-BASIC の プロ グラ ム を, その まま C 言 語 の ソー スプ ログ ラム 変換 し ま 
プロ グラ ム に な っ て し まえ ば , 他 の ファ イル で 定義 し た C C 衣 語 の 関数 や ライ ブラリ 内 の 関数 を 時 
び 出 すこ と が で きま す .C 言語 で 独自 に 作成 し た ライ ブラ リ を 自由 に 扱う こと る 可能 に な り ま す 、 
BASTOC コン バー タ は 表 4.4 の よう に , C Compiler PRO-68k シス テム ディ スク の BC と い 
う デ ィ レ クト リ の 下 に 格納 され て いま す . 





M 
し っ 
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BC.X BASTOC コン バー タ の プロ グラ ム フ ァ イル 

BASIC.CNF BASTOC コン バー タ の コン フィ ギュ レー ショ ン フ ァイル 
BASIC.DEF X-BASIC の 関数 な どの 定義 ファ イル 

AUDIO.DEF AUDIO 外部 関数 の 定義 ファ イル 

GRAPH.DEF GRAPH 外部 関数 の 定義 ファ イル 

















MOUSE.DEF MOUSE 外部 関数 の 定義 ファ イル 
MUSIC.DEF MUSIC 外部 関数 の 定義 ファ イル 
SPRITE.DEF SPRITE 外部 関数 の 定義 ファ イル 
STICK.DEF STICK 外部 関数 の 定義 ファ イル 
IMAGE.DEF IMAGE 外部 関数 の 定義 ファ イル 




















表 4.4 BASTOOC コン バー タ の 構成 


較 アセ ン ブ ラ 

普通 の プロ グラ ム だ け を 作っ て いる の で あれ ば , アセ ンプ ブラ を 使わ な けれ ば な ら な り い 場面 は そ 
れ ほ ど 多 く は あり ませ ん . 本 書 で も , ほとん ど ア セン ブラ を 使っ た プロ グラ ム に つい て は 触れ て 
いま せん . し か し , Human68k の アセ ン ブ ラ は , いく つか の 擬似 命令 が 用 意 き され て お り , な か な 
か 使い や すい も の に な っ て いま す . ここ で は , これ か ら ア セン ブラ を 使っ て みよ うと 思っ て いる 
方 の た め に , その 特徴 を 紹介 する だ け に と ど め て お きま す . 


・ マ クロ 定義 =… いく つか の 命令 群 を 1 つの 命令 に 置き 換え る こと が で きる 

・ レ ジス タ 定 義 … movem 命令 で 指定 する レジ スタ 群 を , 特定 の 名 前 で 表す こと が で きる 

・move 命令 の 最適 化 … アド レス レジ スタ へ の move 命令 を , movea 命令 に 置き 換え 
G べ る 

・ プ ラン チ 命 令 の 最適 化 … すでに 定義 S さ 3 れ て いる ラベ ル へ の ブラ ンチ 命令 を , 可能 で あ 


れ ば ブラ ンチ ・ シ ョ ー ト 命令 に 置き 換え て くれ る 


アセ ン ブ ラ は , BIN と いう ディ レク トリ の 下 に AS.JX と いう ファ イル 名 で 格納 され て いま す . 


4.1. 多数 の 開発 ツー ル 
ここ で は , 開発 の 途上 で 利用 する ツー ル の な か か ら 利 用 頻度 の 高い と 思わ れる も の に つい て , 
その 用 途 と 特徴 に つい て 紹介 する こと に し まし ょ う . 





田 アー カイ パ (AH.X) 

本 来 は オブ ジェ クト ファ イル を まとめ て ,。 ライ ブラ リ 化 する た め の ツ ー ル で す が , すでに 開発 
の すん だ ソー ス フ ァ イル な ど を まとめ て し まう こと と も で きま す . 結果 と し て ディ スク の 容量 の 節 
約 に つなが っ た り , 管理 を 容易 に する こと に も つなが り ま す . 
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4.| パッ ケー ジ の 内 容 を 確か め る 


一 コン バイ ラド ライ バ (CC.X) 
ョ ン パ イル や アセ ン ブ ル な ど , 一 連 の 作業 を 自動 的 に 実行 し て くれ る も の で す . コン パイ ラド 
ョ イネ バ を 使う と , X-BASIC。 C 言語 .、 ア セン プラ と いう よう に 別々 の 言語 で 書い た プロ グラ ム を 
ンク (連結 ) し て 1 つの 実行 ファ イル を 作る と いう よう な 高度 な 利用 を する こと が で きま す . 


一 コン バー タ (CV.X) 

形式 の ファ イル を R 形式 や Z 形 式 の ファ イル に 変換 する コン バー タ で す 。 リ ンカ は X 形 式 
ファ イル し か 作成 で きま せん の で 。 せ っ か く リ ロケ ー タ ブル に 記述 し た プロ グラ ム で も , X 形 
云 の ファ イル と な っ て し まい ます . この コン バー タ を 使え ば , R 形式 の ファ イル に 変換 する こと 
が で きま す . 


較 シン ボリ ッ ク デ バッ ガ (DB.X) 

アド レス の 代り に シン ボル , すなわち C の 関数 名 や グロ ー バ ル 変 数 名 を 使え を る デ バッ ガ で す の 
で , C コン パイ ラ で 作っ た 実行 ファ イル の デバ ッ グ を 効率 よく 行う こと が で きま す .。 Human68k 
の 実行 ファ イル は , ロー ド さ れる アド レス が いつ も 一 定 と は 限り ませ ん の で , アド レス の 代り に 
シン ボル を 使え る と いう こと は 非常 に 便利 な の で す . 


田 エディ タ (ED.X) 

複数 ファ イル の エディ ッ ト や , エディ タ 中 か ら Human68k の コマ ンド を 実行 で きる な ど , 付属 
の エディ タ と し て は , な か な か 優れ て いま す 。 エディ タ 内 か ら 参 照 で きる オン ライ ンマ ニュ アル 
の 機能 もち あり ます . 


還 リン カ (LK.X) 

複数 の オプ ジェ クト ファ イル や ライ ブラ リフ ァイル を リン ク し , 実行 ファ イル を 作成 し ます . 
リン ヵ カ の 作業 の 内 容 か ら , ディ スク 入出 力 が 多く , 処理 に 時 間 が か か っ て し まい ます . そこ で コ 
ン パ イラ ドラ イ バ か ら リ ンカ を 呼出 す と き は , キャ ッシュ (CASH.X) と いう プロ グラ ム を 使っ て 
処理 の 高速 化 を は か っ て いま す . キャ ッシュ と は , 頻繁 に 使わ れる ファ イル を あら か じ め メ モリ 
上 に 読み 込み , 入出 力 を 高速 化し よう と いう も の で す . 


一 タイ ム ス タ ン プ の 更新 (TODUOCH.X) 

コン パイ ラド ライ バ で “ンジ M” オ プシ ョ ン を 指定 する と 。 ソ ー ス ファ イル より オプ ジェ クト ファ 
イル の 更新 日 時 の ほう が 新しく な っ て し まっ た 場合 再 コ ン パ イル し ませ ん . し か し 。 特定 の ソー 
ス フ ァ イル だ け は 再 コ ン パ イル し た いと いっ た 場合 に , TOUCH.X を 使っ て タイ ム ス 
する と うま く 動 作 き せる こと が で きま す . 


ュー デ 


1 
ジアン E 


NN 
聞 


4 章 X68000 の プロ グラ ミン ク グ 環 境 


4.1.3 多数 の ヘッ ダフ ァイル 


ヘッ ダフ ァイル と は , 付属 し て いる ライ ブラ リ に 含ま れ て いる 関数 を 利用 する た め の 定 義 が 行 
われ て いる ファ イル で す . プロ グラ ム 中 で 使わ れ て いる 関数 に よっ て , 必要 な ヘッ ダフ ァイル を 
読み 込む (イン クル ー ド する ) 必 要 が あり ます . 各々 の 関数 が 必要 と し て いる ヘッ ダフ ァイル は , 
C ラ イブ ラリ マニ ュ ア ル の 書式 の 項 に #include く フ ァイル 名 > と いう 型式 で 指示 され て いま す . 

ここ で は , それ ぞ れ の ヘッ ダフ ァイル の 概要 を 表 4.5 に あげ て お きま す . これ ら の ヘッ ダフ ァ 
イル は , INCLUDE と いう ディ レク トリ の 下 に 格納 され て いま す . 


ASSERT.H 








assert マク ロ が 定義 きれ て いる . デバ ッ グ 終了 後 は , “NDEBUG” を マク ロ 定 義 し て か ら 
イン クル ー ド する 





AUDIO.H 


X-BASIC で AUDIO.FNC 中 の 外部 関数 を 使う と , BASTOC に よっ て 自動 的 に イン クル ー 
ド さ れる 



















































































BASIC.H X-BASIC の 組込み 関数 を 使う と , BASTOC に よっ て 自動 的 に イン クル ー ド され る 

BASICO.H X-BASIC の 画面 処理 関数 を 使う と , BASTOC に よっ て 自動 的 に イン クル ー ド され る 

CLASS.H よく 使わ れる 型 や クラ ス が 定義 され て いる 

CONIO.H コン ソー ル 入 出力 関数 の 宣言 が 行わ れる 

CTYPE.H 文字 の チェ ッ ク 関 数 や 変換 関数 の マク ロ が 定義 され て いる 

DIRECT.H ディ レク トリ に 対す る 制御 を 行う 関数 の 宣言 が 行わ れ て いる 

DOSCALLMAC 才 ま 0 PR ヘッ ダ で , DOS コー ル を 呼ぶ マク ロ や , DOS 

DOSLIB.H DOS コー ル で 使う 構造 体 の 定義 や , DOSLIB.A に 含ま れる 関数 の 宣言 が 行わ れ て いる 

ERROR.H エラ ー 出 力 に 使う エラ ー コ ー ド が 定義 され て いる 

FCNTL.H 低 水準 入出 力 関数 で 使わ れる 定数 が 宣言 され て いる 

FCTYPE.H CTYPE.H の 関数 版 で , 文字 の チェ ッ ク 関 数 や 変換 関数 の 宣言 が 行わ れ て いる 

FDEFH アセ ジラ で X-BASIC の 外部 関数 を 作る と き に 使う ヘッ ダ で , 外部 関数 で よく 使わ れる 
定数 が 定義 され て いる 

FEFUNCH アセ ン デラ で 浮動 小数 点 演算 を 行 うた め の ヘ ッ ダ で , 浮動 小数 点 演算 プロ セッ サド ライ 
バ の エン トリ が 名 前 で 定義 され て いる 

FLOAT.H 浮動 小数 点 で 表し た デー タ の 最大 値 や , 仮数 部 の 桁 数 な ど が 定義 され て いる 

GRAPH_H X-BASIC で GRAPHFNC 中 の グラ フィ ッ ク 制 御 関数 を 使う と , BASTOC に よっ て 自動 的 
に イン クル ー ド され る 

IMAGEH 0 上 ASIC で IMAGE.FNC 中 の イメ ー ジ 処理 関数 を 使う と, BASTOC に よっ て 自動 的 に イ 
ンク ルー ド さ れる 

IO.H ファ イル 制御 関数 や 低 水 準 入出 力 関数 な どの 宣言 が 行わ れ て いる 
アセ ンプ ブラ で = 穫 う こ 舘 う ヘ ッ ダ で = 平 ぶ 

IOCSCALLMAC に ーー ッ ダ で , IOCS コー ル を 呼ぶ マク ロ や , IOCS 

IOCSLIB.H IOCS コー ル で 使う 構造 体 の 定義 や , IOCSLIB.A に 含ま れる 関数 の 宣言 が 行わ れ て いる 

JFCTYPE.H 全角 文字 や カナ 文字 の チェ ッ ク 関 数 や 変換 関数 の 宣言 が 行わ れ て いる 

JSTRING.H 全角 文字 列 の 比較 関数 や 検索 関数 の 宣言 が 行わ れ て いる 

LIMITSH 符号 つき の char, short, int long 型 の 最大 値 と 最小 値 .。 そし て それ ぞ れ の 型 に つい て , 
符号 な し の 場合 の 最大 値 が 定義 され て いる 
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4.| パッ ケー ジ の 内 容 を 確か め る 
































MATHH 数 学 関数 の 宣言 の ほか に , 数 学 関数 の エラ ー 処 理 の た め の 定 義 や , 複素 数 の 構造 体 の 定 
/ 義 , z の 定義 が 行わ れ て いる 

X-BASIC で MOUSE.FNC 中 の マウ ス 制 御 関数 を 使う と , BASTOC に よっ て 自動 的 に イン 
MOUSE.H ウ 

クル ー ド され る 

X-BASIC で MUSIC.FNC 中 の FM 音源 制御 関数 を 使う と, BASTOC に よっ て 目 動 的 に イ 
MUSIC.H 2 

ンク ルー ド さ れる 
PROCESS.H プロ セス 制御 関数 の 宣言 が 行わ れ て いる 
SETJMP.H setimp 関数 と longjmp 関数 の 宣言 と . それ ら の 関数 で 使う 構造 体 の 定義 が 行わ れ て いる 
SIGNAL.H signal 関数 の 宣言 と . その 関数 で 使う 定数 の 定義 が 行わ れ て いる 

| SPRITEH X-BASIC で SPRITE.FNC 中 の スプ ライ ト 制 御 関数 を 使う と , BASTOC に よっ て 自動 的 に 
イン クル ー ド され る 

stat 関数 と fstat 関数 の 宣言 と ., それ ら の 関数 で 使う 構造 体 の 定義 と 定数 の 定義 が 行わ れ 
STAT.H Pk 

スト リー ム 入 出力 関数 の 宣言 お よび マク ロ の 定義 と , stdin, stdout な どの 定義 , EOF な 
STDIOH ど 定 数 の 定義 , FILE 構造 体 の 定義 が 行わ れ て いる . この ヘッ ダ を イン クル ー ド する まえ 


に MACRO′” を マク ロ 定 義 し て お く と , いく つか の 関数 が マク ロ 定 義 で 実現 され る よう 
に な る 

STDLIB.H 一 般 的 な 他 の ヘッ ダ で は 宣言 され て いな いよ うな 関数 の 宣言 が 行わ れ て いる 

X-BASIC で STICK.FNC 中 の ジョ イス ティ ッ ク 入 力 関数 を 使う と , BASTOC に よっ て 自 
動 的 に イン クル ー ド され る 

STRING.H 文字 列 処理 関数 の 宣言 が 行わ れ て いる 








STICK.H 








人 time 関数 と utime 関数 以外 の 時 間 に 関 係 し た 関数 の 宣言 と , それ ら の 関数 で 使う 構造 体 
の 定義 や 変数 な どの 宣言 が 行わ れ て いる 

TIMEB.H ftime 関数 の 宣言 と , その 関数 で 使う 構造 体 の 定義 が 行わ れ て いる 

UTIME.H utime 関数 の 宣言 と , その 関数 で 使う 構造 体 の 定義 が 行わ れ て いる 


表 4. 巳 各 ヘ ッ ダ ファ イル の 概要 


TIME.H 














4.1.4 4 つの 標準 ライ ブラ リ 

C 言語 は 。 ほとん どの 処理 を ライ ブラ リ に 任せ て いま すか ら , その 使い こなし に は , 文法 だ け 
は な く , 処理 系 に 付属 し て いる ライ ブラ リ に つい て も 知ら な けれ ば な り ま せん .C Compiler PRO 
-68k に 付属 し て いる ライ ブラ リフ ァイル に は , 次 の よう な 4 つの も の が あり ます . 








・CLIB.A … C 言 語 で よ まつ PRE ジブリ 
・BASLIB.A … 駐 -BASIC か ら 変 換 さ れ た あと の C 言 語 用 ライ ブラ リ 
・DOSLIB.A … DOS コー ル を C 言 語 か ら 使 うた め の ラ イブ ラリ 
・IOCSLIB.A … IOCS コー ル を C 言語 か ら 使う た め の ラ イブ ラリ 
これ ら ラ イブ ラリ の 関係 は , 図 4.2 の よう に な り ま す . この 図 か ら わ か る よう に , C 言語 か ら 安 
全 に 使え る 関数 は , CLIB の すべ て と , BASLIB, DOSLIB, IOCSLIB の 一 部 分 、 つ まり C じ ライ 
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ブラ リマ ニュ アル で いう レベ ル 2 の 関数 で す . それ 以外 の 関数 は , 複雑 な 手順 を 必要 と すろ る ため. 
誤っ た 使い か た を する と 致命 的 な エラ ー を 発生 する 場合 が あり ます . 


IN 
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DOSLIB 





C 言 語 か ら 安 全 に 使え る 関数 


中 


図 4. つ イス つ の ライ ブラ リ の 関係 


4. つ ライ ブラ リ の 概要 と 利用 の ヒン ト 


パッ ケー ジ に 付属 し て いる 分 厚い マニ ュ ア ル を 見 る と , ライ ブラ リ に 収め られ て いる 関数 の 多 
さき に 尻込み し て し まう 方 も いる か も し れ ま せん . し か し , 実際 の プロ グラ ミン グ て 必要 な 関数 は 
限ら れ て いる の で す . も っ と も , C 言語 で プロ グラ ム を 書く 場合 , CLIB に 収め られ て いる 関数 に 
つい て は 理解 し な けれ ば な り ま せん が , DOSLIB や IOCSLIB に つい て は , その 必要 は あり ませ 
ん BASLIB に いた っ て は , まっ た く 使 う 必 要 が な いと いっ て し まっ て も 過言 で は あり ませ ん . 
も し, BASLIB に た よら な けれ ば な ら な いよ うな 処理 (グラ フィ ッ ク や サウ ンド の 操作 ) を する 場 
合 , まず 又 -BASIC で 書き , BASTOC で C 言 語 に 変換 し て 手 を 加え れ ば よい の で す . 

ここ で は , 膨大 な ライ ブラ リ 関 数 の な か か ら 一 般 的 に 考え て 有用 な も の を ピッ クア ッ プ し , そ 
れ ら の 使い か た の ヒン ト を 紹介 する こと に し まし ょ う . 











24. 己 .] ビラ イブ ラリ (OLIB.A) 

CLIB に は , UNIX の ライ ブラ リ に 準拠 し た 関数 や , MS-DOS 上 の MS-C の ライ ブラ リ に 含ま 
れ て いる 関数 と 同等 な 関数 。 そ し て 独自 の 関数 が 含ま れ て いま す . この よう に 従来 の C 言 語 と の 
互換 性 も 保ち つつ , 新しく 追加 され た 関数 が ある た め 。 使い や すく な っ て いま す . その 上 。 これ 
ら の 関数 は アセ ンプ ラ で 記述 され て いま すか ら , 処理 速度 も 比較 的 高速 で ある と いえ ます . 

それ で は , これ ら の 関数 を いく つか の 大 き な グ ルー プ に 分 類 し て 紹介 し まし ょ う . 





弄 デー タ の 操作 関数 変換 関数 

ここ で 説明 する 関数 は , どの 処理 系 で も た いて い の 場 合用 意 き れ て いる 基本 的 な も の ば か り で 
す の で ,。 あら た め て 説明 する 必要 は な いで し ょ う . あと は , これ ら の 関数 を どの よう な 場面 で , 
どの よう な 使い か た を する か と いう , 英語 の イデ ィ オ ム に 相当 する 知識 を 薔 え る だ け で す . ここ 
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で は , 文字 や 文字 列 , 整数 や 実数 , 複素 数 そし て バッ ファ 内 の デー タ を 扱う 関数 を 使っ て 行う 
イデ ィ オ ム の いく つか を 紹介 し まし ょ う . 

た と えば , 文字 の 種類 に 応じ た 処理 を 行い た いよ うな 場合 を 考え て み ま し ょ う . 次 の よう に , 
isalpha 関数 を 使っ た 1 行 で 文字 種 の 判断 を する こと が で きま す . 


if(isalpha(c) ) { 文字 が 英文 字 だ っ た 場合 の 処理 .… 
また , 大 文字 と 小文字 の 区 別 な く 判 断 を し た い 場 合 に は , toupper 関数 が 有効 で す . 
if(toupper(c) ニニ 'C') { 文字 が c か C だ っ た 場合 の 処理 .… 


文字 列 に 関す る 操作 を 行う 関数 に は , 文字 列 の 長き を 調べ る 関数 (strlen) や , 文字 列 の 複写 (str- 
cpy), 付加 (strcat), 比較 (strcmp), 検索 (strchr) な どの 関数 が あり ます . 文字 の 比較 に は , 大 文 
字 小 文字 の 区 別 を せ ず に 比較 する 関数 (strcmpi) も 用 意 さ きれ て いま す . 

た と えば , 2 つの 文字 列 を 比較 し て , 同じ か どう か と いう 判断 を する た め に は , 次 の よう に し ま 
す . 


if(strcmp(str1, str2) ニ = 0) {str1 と str2 が 同じ 文字 列 だ っ た 場合 の 処理 


これ ら の 関数 を 使っ て プロ グラ ム し て あれ ば , 機種 ご と の 文字 コー ド に 依存 する こと な く 文 字 
の 識別 や 変換 を する こと が で きま す . 

その ぼ ほか, n 進数 の 数 字 を 表し て いる 文字 列 を 数 に 変換 し て , その 値 を 返す 関数 (strtol), ファ 
イル 名 や パス 名 と いっ た 文字 列 を 分 解 し た り 組み 立て た りす る 関数 , 変更 する 関数 (strsfn, strm- 
fn, strmfe.…) な ども 用 意 き れ て お り , ファ イル 操作 を 便利 に し て いま す . た と えば , 最初 の 引数 
(argv [1]) を 数 値 に 変換 し て 変数 に 代入 する に は , 次 の よう に 行え を ば よい で し ょ う . 


char *Dtr : 
i 三 strtol(argv [1], &ptr。 0) : 


数 値 計算 関数 は , 浮動 小数 点 演算 に より sin や exp な どの 計算 を 行う 関数 で す . 命令 の 実行 に 
は , FLOAT1.X や FLOAT2.X, FLOAT3.X な どの デバ イス ドラ イ バ を 使っ て いま すか ら 。 数 値 
演算 プロ セッ サボ ー ド な ど を 購入 し た 場合 に は , デバ イス ドラ イ バ を 差し 圧 え る だ け で ,。 その 数 
値 演算 プロ セッ サボ ー ド を 利用 で きま す . 

バッ ファ 操作 関数 は , 指定 され た アド レス か ら 指 定 さ れ た バイ ト 分 の メモ リ 空 間 を バッ ファ と 
みな し て , それ に 対し て バイ ト 単 位 で の コピ ー(memcpy), 比較 (memcmp) 、 検索 (memchr) な ど 
と いっ た 処理 を 行い ます. バイト 単位 で すか ら , 文字 列 操 作 関数 を 低 レ ベル に し た 関数 と も いえ 
る で し ょ う . 低 レ ベル な 分 , 細か な 処理 も で きま すか ら , な か な か 便利 な 関数 で す . 

た と えば , array1 と いう 配列 を 0 で 初期 化す る 場合 を 考え て み ま し ょ う . 次 の よう に する こと 
で , 高速 に 実行 で きま す . 
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setmem(array1, sizeof(array1), 0) : ブ * 配列 の 初期 化 * ノ 


し か し , これ ら の バッ ファ 操作 関数 は , 他 の C コ ン パ イラ に は な い 場 合わ あり ます か ら , 使う 
と き に は その 機能 に つい て の コメ ント を 残し て お くべ き で す . 

デー タ 変 換 関数 に は , 10 進数 の 数 を 表す 文字 列 を 数 値 に 変換 する 関数 (atoi) や , 数 値 か ら 文 字 
列 に 変換 する 関数 (itoa) が あり ます . 

検索 に は 二分 探索 アル ゴリ ズム に よる 関数 (bsearch) が , 並 替 え に は クイ ッ ク ソ ー ト ・ ア ル ゴ 
リズ ム に よる 関数 (qsort) が 用 意 き れ て いま す . また , 用 途 を 限定 し て 速度 を 速め た クイ ッ ク ソ ー 
ト 関数 (fqsort.…) も 用 意 き れ て いま す . 


























画 入出 力 関数 
入出 力 を 行う た め の 関 数 は , 次 の よう に 分 類 で きま す . 


・ バ ッ フ ァ リ ング を 行う スト リー ム 入 出力 関数 
・ バ パッ ファ リン グ を 行わ な い 低 水 準 入出 力 関数 
・ コ ン ソ ー ル と の 直接 入出 力 を 行う 関数 


スト リー ム 入 出力 関数 や 低 水 準 入出 力 関数 を 使う こと で , 指定 し た ファ イル や デバ イス と の 入 
出力 を 行う こと が で きま す . デ バイ ス と の 入出 力 は ファ イル 名 の 代り に デバ イス 名 を 使う だ け で , 
普通 の ファ イル に 対す る 入出 力 と 同様 な 手順 で 扱う こと が で きま す . 

この スト リー ム 入 出力 は 標準 入出 力 と も 呼び , 文字 列 処理 が 容易 な こと と , デー タ の バッ ファ 
リン グ を し て くれ る こと が 特徴 で す . 

実際 に ファ イル を アク セス する に は , FILE 構造 体 を 使い ます . まず ファ イル を オー プン 
(fopen) す る と , FILE 構造 体 の な か に その ファ イル に 関す る 情報 を 構築 し て , その 構造 体 の 格納 
され て いる アド レス を 返し て きま す . 以後 この 情報 に 基づい て ファ イル を アク セス (fgets.…) し ま 
す . その た め , この FILE 構造 体 の アド レス は ファ イル 別に 保管 し な けれ ば な り ま せん . 

それ で は , 実際 に スト リー ム 入 出力 を 使っ た プロ グラ ム の 例 を 見 て み ま し ょ う ( リ スト 4.1). 











リス ト 2. ] スト リー ム 入 出力 関数 を 使っ た ファ イル の コピ ー(cp.o) 


・ #define MACRO 

・#include <stdio.h> 

・#include <io.h> 

・ #include <stdlib.h> 

・ #define ERROR (-1) 

・ copy(char *,。 char *)) … の lm 第 1 引数 の 示す ファ イル を 第 2 引数 の 示す ファ イル へ コピ ー す る 関数 


・ void main(argc, argv) 
・ char *argv[]: 


と テー テー 
FE つ >ー 世 CO ぐー ココ OoO 愉 < で SFTO 
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23 
24: } 
25 
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if (argc != 3) ( 6 3 
fprintf(stderr, "Usage: %s sourcefile destfile\n", argv[9]): 引数 が 正しく な い 場 合 に 使 
exit(1): い 方 を 表示 し て 終了 する 


if (copy(argv[1], argy[2]) == ERROR) 5 


perror(argy[ 明 ): コピ ー に 和 失敗 し た 場合 に エラ ー メ ッ 
fputs(" コ ピー に 失敗 し まし た . *m", stderr): | 8 あろ 、 





exit(1): 
exit(9: 


36: copy(sfile, dfile) 
放 : char *sfile: 
28: char *dfilei 


29: { 


int ch5 
FILE *sfp, *dfpi 


if ((sfp = fopen(sfile, "rb”)) == NULL) | コピ ー 元 の ファ イル を オー プン する 
return ERRORj ) 
if ((dfp = fopen(dfile, "wb”)) == NULL) { 


fclose(sfp): > _ 5 
return ERROR: コピ ー 先 の ファ イル を オー プン する 


while ((ch = gete(sfp)) 1= EOF) | なく な る まで 入力 を 出力 ヘコ ピー する 
putc(ch, dfp): 

if (ferror(sfp) I| ferror(dfp)) { 
fclose(sfp): 
fclose(dfp): エラ ー が 発生 し た 場合 に , コピ ー 先 ファ イル 
unlink(dfile): を 削除 し て 終了 する 


return ERROR: 


fclose(sfp): 
fclose(dfp): ファ イル を クロ ー ズ し て 終了 
return !ERRORj 


この 例 で は スト リー ム 入 出力 関数 を 使用 し て いる た め , 低 水 準 入出 力 関数 な ど 他 の レベ ル の 入 
出力 関数 と と も に 使う 場合 に は , ffIush 関数 で バッ ファ を 空 に する と いう 手順 を 踏ま な けれ ば な 
り ま せん . この よう な 手間 を か ける わり に メリ ッ ト は あり ませ ん の で ,。 で きる だ け 同 一 レベ ル の 
関数 で 統一 する よう に し た ほう が よい で し ょ う . 

低 水準 入出 力 関数 は , 非常 に 基本 的 な 処理 し か 行わ な いた め , 高速 な 処理 を 期待 で きま す が , 
スト リー ム 入 出力 関数 と 違い ファ イル の アク セス に ファ イル ハン ドル を 使い ます 。 フ ァイル ハン 
ドル と は , オー プン (open) し た ファ イル に 付け られ る 一 意 の 議 別 番号 Gint 型 ) で 。 フ ァイル ハ 
ンド ル を 獲得 し た あと は , この 番号 を も と に アク セス (read..) し ます 。 

それ で は , リス ト 4.1 に あげ た プロ グラ ム を 低 水 準 入 出力 関数 を 使っ て 書き 直し て み ま し ょ う 


(リス ト 4.2). 
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リス ト ノイ . 避 低 水 準 入出 力 関数 を 使っ た ファ イル の コピ ー(GD ら .0) 





to ニー ニー ーーー テーー テ ーー テー ーー 
忌 ぐ どど - コ の の ⑦ せ COO 王 選 ど ど コ の で CO 一 


#define MACRO 


#include <stdio.h> 
#include <fcntl.h> 
#include <io.h> 
#include <stat.h> 
#include <stdIib.h> 


#define ERROR (-1) 


: #define RMODE (0O_RDONLY ! 0_BINARY) 
: #define WMODE (0O_CREAT | O_TRUNC | 0_WRONLY | 0_BINARY) 
: #define PMODE (S_IREAD ! S_IWRITE) 


・ copy(char *, char 0 第 1 引数 の 示す ファ イル を 第 2 引数 の 示す ファ イル へ コピ ー す る 関数 


・ void main(argc, 8rgv) 
・ char *argv[]: 





if (argc != 3) 【 | 3 
Tprintf(stderr, "Usage: %s sourcefile destfile\n", argv[9]), | 引数 が 正しく な い 場合 に 使 
21: exit(1): い 方 を 表示 し て 終了 する 
22: ) 
23: if NeuD argv[2]) == ERROR) { 
24: perror(argv[ 明 ): に - 場 人 に - エ ラー メッ セー ジ 
25: fputs(" コ ピー に 和 失敗 し まし た 。*m"」stderr)i 2EeL ey る 
26: exit(1): | \ 
27: H ) 
28: exit( の : 
29: 
3: 
31: copy(sfile, dfile) 
32: char *sfilei 
33: char *dfile: 
34: { 
35: char buffer[BUFSIZ]: 
36: int sizei 
37・ int sfd, dfdj 
38・ 3 
39: if ((sfd = open(sfile, RMODE)) == ERROR) | コピ ー 元 の ファ イル を オー プン する 
49: return ERRORi 
41: if ((dfd = open(dfile, WMODE, PMODE)) == ERROR) { | 
42: close(sfd): コピ ー 先 の ファ イル を オー プン する 
43: return ERROR: 
44: } 
45: while ((size = read(sfd, buffer, sizeof(buffer))) > 9) { 
46: if (write(dfd, buffer, size) < size) 【 入力 が な く な る まで , 入力 を 出力 へ 
47: size = -]1: コピ ー す る . エラ ー が 発生 し た 場合 
48: break: に は size に 一 1 が は いる 
49: 
59: } 6 
51: close(sfd): ァイル を クロ ー ズ 
52: close(dfd): 敵 EE 
53: if (size< の 【( 
54: unlink(dfile): | エラ ー が 発生 し た 場合 に コピ ー 先 ファ イル 
55: return ERRORj Ser 
56: 
57: return !ERRORj 
58: } 
198 
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これ ら の 関数 を 使う に は , “types._h”? を イン クル ー ド する 必要 が ある よう に マニ ュ ア ル に 記述 さ 
衝 記 いま す が , 実際 に は この ヘッ ダフ ァイル は 存在 し ませ ん . で すか ら , この リス ト の よう に イ 
ルード し な く て も まっ た く 問 題 あ り ま せん . 

ュ ン ソー ル 入 出力 関数 (getch) は , 直接 コン ソー ル に アク セス し た いと き に 使わ れ , バッ ファ リ 
ング モ ず に 標準 入力 か ら 1 文字 読み 込む 関数 や 。 キーボー ド が 押さ れ た か どう か を 調べ る 関数 な 
ビ が お あり ます . 


還 ファ イル や ディ レク トリ の 操作 関数 

ラファ イル を 操作 する 関数 と し て は , ファ イル の 削除 (unlink), ファ イル 情報 の 獲得 と 変更 (stat) 
を ど が あり ます . ファ イル 操作 関数 中 に は , ファ イル を 作成 する と いう 関数 が あり ませ ん が , ス 
トリ ー ム 入出 力 関数 や 低 水準 入出 力 関数 (fopen, open, creat) で 代行 きれ て いま す . 

ディ レク トリ を 操作 する 関数 と し て は , ディ レク トリ の 作成 (mkdir)。 削除 (rmdir),。 カレ ント 
ディ レク トリ の 調査 (getcwd)。 変更 (chdir) の 4 つ し か あり ませ ん . 


一 シス テム 関数 
シス テム 関数 と は 。 Human68k に 対し て リク エス ト を 発行 する た め の 関 数 で す 。CLIB に 分 類 
され て いる 関数 を 使っ て 要求 で きる サー ビス に は , 次 の よう な も の が あり ます . 


・ プ ロ セ ス の 制御 

・ 環 境 変数 の 設定 や 読込 み 
・ 時 間 や 日 付 の 読込 み 

・ メ モリ の 割当 て 


シグ ナル 割込み を 制御 する こと で ,。 プ ログ ラム は Human68k か ら の 指示 (シグ ナル ) を 判断 し , 
適切 な 行動 を と る こと が で きま す . た と えば , ター ミナ ルプ ログ ラム の よう に , STOP キー が 押 
され た だ から と いっ て , その まま 処理 を 中 断 し て し まっ て は 困る よう な プロ グラ ム で は , これ ら の 
関数 を 使い 正しい 終了 の 手続 き を 行っ た あと に 終了 させ ます . 

また , 子 プ ロ セ ス を 起動 する 関数 は , 起動 し た 子 プ ロ セ ス に 制御 を 移す 関数 (exec) と , 親 プ 
ロ セ ス が 継続 し て 制御 を 行う 関数 に 分 けら れ ま す . 後者 の 場合 に も , 指定 され た プロ グラ ム を 直 
接 起動 する 関数 (spawn) と , COMMAND.X を 通し て 起動 する 関数 (system) に 分 けら れ ま す . 
COMMAND.X※ に よっ て 子 プ ロ セ ス を 起動 する 方 法 は , COMMAND.X の 機能 . た と えば リ ダ イ 
レク ト や パイ プ ,。 TYPE コマ ンド な どの 内 部 コマ ンド を 使う 場合 に 有効 で す . 

時 間 を 扱う 関数 に は , 現在 の シス テム 時 間 ( グ リ ニ ッ ジ 標 準 時 1970 年 1 月 1 日 0 時 0 分 0 秒 か 
ら 経過 し た 秒 数 ) を 調べ る 関数 (time, ftime), シス テム 時 間 を 地方 時 に 変 王 する 関数 (localtime) 。 
時 間 の 表現 を 文字 列 や 構造 体 に 変更 する 関数 (asctime, gmtime)、 フ ァイル の 更新 日 時 を 変更 す 
る 関数 (utime) が あり ます . 
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地方 時 を 得る に は , まず time 関数 で シス テム 時 を 得 て , localtime 関数 で 地方 時 に 変換 し , tm 
構造 体 に 代入 し ます . あと は それ を 文字 列 に 変換 し て 利用 すれ ば よい で し ょ う . シス テム 時 を tm 
構造 体 の 地方 時 に 変換 する 1ocaltime 関数 は , 現在 の C ラ イブ ラリ マニ ュ ア ル に は 記載 され て い 
ませ ん が , gmtime 関数 と 同じ よう に 記述 し て 使う こと が で きま す . これ ら の 関数 を 使っ た 例 を リ 
スト 4.3 に あげ て お きま す . 

また , utime 関数 で 指定 する 時 間 は , time 関数 で 返さ れる シス テム 時 の フォ ー マ ッ ト と 同様 , 

グリ ニッ ジ 標 準 時 1970 年 1 月 1 日 0 時 0 分 0 秒 か ら の 経過 秒 数 に な っ て いな けれ ば な り ま せん . 





























リス ト 2. 地方 寺 の 表示 (time.c) 





1: #define MACRO 

の 5 

3: #include <stdio.h> 

4: #include <time.h> 

5: 

6: void main() 

7 

8: int gmti 

9 struct tm *lctimei 

19: シス テム クロ ッ ク が グリ ニッ ツジ 標準 時 1970 年 1 月 1 日 0 時 0 分 0 秒 か ら 
11: time(&gmtO oneeinnnmnn…o 経過 し た 秘 数 を 求め 変数 gmt に 代入 する 

12: lctime = localtime(&gmt)i ……… gmt を 現地 で の 時 間 に 変換 し , tm 構造 体 に 代入 する 
13: puts(asctime(lctime))) ……… tm 構造 体 の 表す 時 間 を 文字 列 に 変換 し て 出力 する 
14: 





メモ リ 割 当て 関数 を 使っ て 。 プロ グラ ム が 動 的 に メモ リ を 確保 する こと が で きま す .。 これ は プ 
ログ ラム が 実行 時 に 必要 と する メモ リ の 量 を , あら か じ め 決 定 で き な い 場合 , た と えば 文字 列 や 
リス ト 構 造 な どの よう な メモ リ の 必要 量 が 不定 な デー タ 構 造 を 扱う と き な ど に 使わ れ ま す . 

メイ ン メ モリ は , Human68k に よっ て 管理 され て いま す の で , プロ グラ ム 中 で メモ リ を 必要 と 
する 場合 に は , その 必要 量 を DOS に 要求 し 確保 する と いう 手順 を 踏ま な けれ ば な り ま せん . も ち 
ろ ん 十 分 な メモ リ を 確保 で き な い 場合 わあ り ま す の で , エラ ー チ ェ ッ ク を 行う な どの 対処 が 必要 
で す . また , 必要 の な く な っ た メモ リ は , 他 の プロ セス の た め に 開放 し な けれ ば 効率 的 な 運用 を 
する こと は で きま せん . 

メモ リ の 確保 と 開放 と いう 一 連 の 作業 に は , malloc 関数 と free 関数 を 使い ます . この malloc 
関数 は , 実行 に 失敗 し た 場合 で も errno を 設定 し ませ ん か ら , 自分 で errno に ENOMEM (error. 
h で 定義 し て ある ) を 代入 し て , perror 関数 で エラ ー を 表示 し な けれ ば な り ま せん . また 。 起動 
に ヒー プ 人 額 域 と し て 確保 し た 領域 (だ デフォルト で 64K バイ ト ) 以上 の 領域 を , malloc 関数 で 確 
保 お る こと は で きま せん . 

これ ら の 一 連 の 動き を サン プル プロ グラ ム で 見 て みる こと に し まし ょ う .。 リス ト 4.4 の プロ グ 
ラム を 実行 する と , 確保 で きる 限り の メモ リ を 確保 し て , 確保 で き な く な っ た と ころ で errno を 
設定 し て perror 関数 を 呼び 出し ます . その あと sbrk 関数 で ヒー プ 領 域 を 拡張 し な が ら メ モリ の 
傘 保 を 続け ます . 
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リス ト 4. alloc 関数 と fr 関数 の 使用 例 (mallOo.C) 


- define MACRO 


- include <stdio.h> 
> include <stdlib.h> 
・ include <error.h> 


: 3define ERROR (-1) 
- define KB 1924 


CD GO ) 9) OO jn 60 NN ee 


中 Yoid main(argc, argv) 
目 : char *argv[] 





12: 

13: int sizeki 

14: void *ptri 

15: 

16: sizek = 16: 

17: while (sizek < 4192) { 

18: printf(” %4dK バ イト ヒー プ 領 域 か ら 確保 し ます *n”, sizek) | sizekkK バ イト の 頒 域 を malloc 
19: if ((ptr = malloc(sizek * KB)) == NULL) 【{ | 関数 で 確保 する 
29: errno = ENOMEM: 

21: perror(argv[9]): エラ ー が 超 こ っ た 場合 に エラ ー メ ッ 
22: puts(" う : セー ジ を 表示 し て , ヒー プ 領 域 を 
8 puts(” 1 吸 K バ イィ ト ヒ ー プ 領 域 を 拡張 し ます ”): | 100K バ イト 拡張 する 

24: if (sbrk(1 角 * KB) == ERROR) { 

25* perror(argyv[9]): ] 拡張 で エラー が 起こ っ た 場合 , エラ 

26: exit(1: | メッ セー ジ を 表示 し て 終了 する 

27: } 

28・ continuei 

99 

39: free(ptr)) oonit 確保 し た 領域 を 開放 する 

ト 】 有 Sizek 2 oon 確保 する サイ ズ を 倍 に し て 続け る 

32: 

5 人 exit( の ): 

34: } 





4. 己 己 X-BASIC ライ ブラ リ (BASLIB.A) 


メ -BASIC の プロ グラ ム を BASTOC で C 言語 の プロ グラ ム に 変換 し た あと , X-BASIC の 関 
数 や ステ ー ト メン ト に 相当 する 機能 を 提供 する た め の ラ イブ ラリ で す . も ちろ ん ,C 言 語 か ら 直 接 
使う こと も で きま す が , や は り BASTOC で 変換 後 の プ ログラム の た め に ある 関数 で す の で , 積極 
的 に 使う べき で は あり ませ ん . また , 場合 に よっ て は CLIB 内 の 関数 と 競合 し て 問題 が 起こ る 可 
E 性 さえ あり ます . 

し か し , 次 に あげ る よう な いく つか の 関数 は CLIB に 用 意 き れ て いな い 機 能 を 提供 し て お ちり, 
し か も 比較 的 安全 に 使う こと が で きま す . 


・ グ ラフ ィ ッ ク の 描写 
・ カ ラー イメ ー ジ ・ ユ ニッ ト か ら の 画像 取込み 
画面 デー タ の 保存 や 読込 み を 行う 関数 
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M 音源 で 音楽 を 演奏 する 関数 
・ マ ウス や ジョ イス ティ ッ ク の 制御 や 状態 を 調べ る 関数 
・ 色 コー ド を 求め る 関数 


4..3 DOS コー ル ラ イブ ラリ (DOSLIB.A) 

Human68k の DOS コー ル を 使う た め の ラ イブ ラリ で す . CLIB だ け で は 実現 で き な い 機能 で 
も , DOS コー ル を 使う こと に よっ て 実現 で きる 場合 も あり ます . この ライ ブラ リ を 使う こと に よ 
り , DOS コー ル を 名 前 で 呼び 出せ る よう に な り ま す . た だ し , 一 般 的 な DOS コー ル の 名 前 と 
DOSLIB の 関数 の 名 前 が 違う 場合 も あり ます か ら 注 意 し て くだ さい . 

また だ た, コン パイ ラド ライ バ を 使っ て コン パイ ル す る 場合 , この ライ ブラ リ は リン ク の 対象 に な 
り ま せん の で , この ライ ブラ リ 内 の 関数 を 使っ た プロ グラ ム を コン パイ ル す る 場合 は , コン パイ 
ル 時 に パプ Y” オプ ショ ン を 指定 し な けれ ば な り ま せん . 

それ で は , DOS コー ル 関 数 の な か で 比較 的 使用 頻度 が 高い も の を 解説 する こと に し まし ょ う . 


一 入出 力 関数 

ファ イル , コン ソー ル , プリ ンタ そし て RS-232C と の 入出 力 を 行う DOS コー ル を 呼び 出す 関 
数 で す . これ まで 紹介 し て きた CLIB や BASLIB 内 の 関数 も , 内 部 で DOS コー ル を 使っ て いま 
す の で , 最も 基本 的 な サー ビス を 提供 する 関数 だ と いえ る で し ょ う . た だ し , 普通 に 入出 力 を 行 
う の で あれ ば CLIB の 関数 を 使え ば 十分 で し ょ う . 

も し これ ら の 関数 を 使う 場合 に は , CLIB の スト リー ム 入 出力 関数 な ど と 競合 し な いよ うに 注 
意 し て くだ さい . 


ァイル や ディ レク トリ の 管理 

これ に 属す る 関数 に は , ファ イル の 属性 を 操作 する 関数 と ディ レク トリ の 作成 や 削除 を 行う 関 
数 が 含ま れ て いま す . これ ら の 関数 か ら は , CLIB で は で き な い よう な 操作 。 た と を えば ディ レク ト 
リ の 属性 や 名 前 の 変更 (CHMOD, RENAME), ディ レク トリ 内 の ファ イル 名 の 検索 (FILES, 
NFILES) を する こと が で きま す . 

ここ で は , RENAME 関数 の 例 と し て , ディ レク トリ の 名 前 を 変更 する rendir と いう プロ グラ 
ム を 作成 し て み ま し た (リスト 4.5)、 この プロ グラ ム で は , ファ イル 名 の 指定 に ワイ ルド カー ド 
を 使え る よう FILES 関数 と NFILES 関数 も 使っ て いま す . 
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4.2 ライ ブラ リ の 概要 と 利用 の ヒン ト 


リス ト 4. 巳 ティ レク トリ 名 の 変更 (rendir.C) 





・ #define MACRO 


#include <stdio.h> 
#include <doslib.h> 
#include <error.h> 
#include <stat.h> 

#include <stdlib.h> 


#define MAXPATH 128 /* on Human68k max path length is 91 */ 


void main(argc, argv) 
char *argv[]: 


struct FILBUF fnbufi 
struct NAMECKBUF nmbuf: 
char fname[LMAXPATH]: 


oo-Joocnn cortomeRcoco- コ oenee csto 


if (argc != 3) { | 
fprintf(stderr, "Usage: %s oldname newname\", argy[]): | 引数 が 正しく な い 場合 に 使 











遇 に 
29: exit(1): い 方 を 表示 し て 終了 する 
21: 
22: /* check wild card */ 
92 if (NAMECK(argv[1], 8&nmbuf) < 9 1I FILES(&fnbuf, argv[1], S_IFDIR) 
!= 9) { 指定 され た 元 の ディ レク トリ か 
24: errno = ENOENT: ある か どう か チェ ッ ク し て , な 
25: perror(argv[9]): い 場合 に は エラ ー メ ッ セ ー ジ を 
26: exit(1): 表示 し て 終了 する 
27: ) 
28: strcpy(fname, nmbuf.driye): | 元 の ディ レク トリ 名 の ワイ ルド 
29: strcat(fname, fnbuf.name): | カー ド を マッ チ さ せる 
39・ /* match wild card more than 1 */ 
31: if (NFILES(&fnbuf) = の ( | Os 
32: fprintf(stderr, "%S: 1 つの ディ レク トリ し か 指定 出来 ませ ん .\n",。| に っ ッ チ し た 場 人 に エラ ー 
argvLg]): ッ セ ー ジ を 表示 し て 終了 する 
38 exit(1): ビ 導 5 
34: 
35: if (RENAWECfname, argv[2]) < 9) 【{ | 
36: errno = EEXIST: | ディ レク トリ 名 を 変更 する , エ ラー 
37 1 perror(argv[9]): が 起こ っ た 場合 に エラ ー メ ッ セ ー 
38: exit(1): | ジ を 表示 し て 終了 する 
39: } | 
49: exit( の : 
41: } 





一 ドラ イブ や ディ スク の 操作 

カレ ント ドラ イブ の 変更 や ディ スク ドラ イブ の 制御 を 行う た め の 関 数 で す . 現在 の CLIB に 含 
まれ る 関数 で は , カレ ント ドラ イブ の 読込 みや 設定 が で きま せん . その た め 。 これ ら の 操作 
うた め に は , DOSLIB 内 の 関数 を 使わ な けれ ば な り ま せん . また , ディ スク の ロッ ク や イジ 
ト (DRVCTRL), プ ブロック デバ イス を 直接 読み 書き する 関数 (DISKRED, DISKWRT) も る 含 ョ 
て いま す . 

ここ と では ,。 指定 し た ディ スク を ロッ ク し て イジ ェクト 不可 能 に し た り , それ を 解除 する プ 
ラム を 作成 し まし た (リス ト 4.6). 


I 


名 


人 Nt 
| 


h 


WW 
本 N 


グ 


日 
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Ilock < ロッ ク す る ドラ イブ 名 > 


と 入力 する と , 指定 され た ディ スク ドラ イブ を ロッ ク し , ロッ ク さ れ て いた 場合 は それ を 解除 し 
ます っ 


リス ト 4. ティ スク ドラ イブ の ロッ ク (lock.C) 





#define MACRO 


#include <stdio.h> 
#include <ctype.h> 
#include <doslib.h> 
#include <stdlib.h> 


#define SENSE 9 
#define LOCK 2 
・ #define UNLOCK 3 
・ #define STINS 2 


ャ ーー 
や や ぐ ⑤ ぐ ど - コ の の な CO 憲 


ェ ュー 











12: #define STLOCK 49 

13: #define DRVCH(no) (no) す 9 うー mononnnnnrnin ドラ イブ 番号 を ドラ イブ 名 に 変更 する マク ロ 定 義 関数 
14: #define DRVNO(ch) (toupper(ch) - 9 うう | ドラ イブ 名 を ドラ イブ 番号 に 変更 する マク ロ 定 義 関数 
15: 


16: void main(argc, argv) 
17: char **argVi 


18: { 

19: int drvno, statusi 

29: 

21: if (argc == 1) { | 

2 の 2 fprintf(stderr, "Usage: %s drivenames\n", argv[]): | 引 表 が 正しく な い 場 合 に エラ ー 

23: exit(1): メッ セー ジ を 表示 し て 終了 する 

24: 

25: WhU676EEaHgG。2 9 。 の 0・ 残り の 引数 を チェ ッ ク す る 

26: 8TgV++: ei の が ETCGmieCHNOee ee 引数 か ら ドラ イブ 番号 を 得る 

27: drvno = DRVNO(**argy): 

28: 902 = 0 夫人 0 POOR 指定 され た ドラ イブ の 状態 を 調べ る は 議 計 お hkt 
29: if ((status & STINS) == の AR 
39: fprintf(stderr, "not insert %c: drive.\n", DRVCH(dryno))j 20 后 や 5 ーー 
3 }) else if (status & STLOCK) 

32:・ if (DRVCTRL(UNLOCK, drvno) & STLOCK) ロッ ク し て ある 場合 に 

983 fputs("cannot ", stderr): アン ロッ ク す る 

34: fprintf(stderr, "unlock %ci: drive.\n”, DRWCWCdrymo う : | 

35: ) else 【 

36: if ((DRVCTRL(LOCK, drvno) & STLOCK) == の | アン ロッ ク し て ある 場 

37: fputs("cannot ”, stderr): 合 に ロッ ク す る 

38: fprintf(stderr, "lock %c: drive.\n", DRVCH(drvno)): | 

39: } 

4: CYP 操り 返す 

41: exit( の : 

42: } 





較 シス テム 関数 

DOSLIB で 要求 で きる サー ビス は , プロ セス や プロ グラ ム の 制御 , メモ リ の 管理 な ど 多 岐 に わ 
た り ま す が , この な か で も 他 の ライ ブラ リ か ら は 扱う こと の で き な い サー ビス と し て は , 次 の よ 
うな も の を あげ る こと が で きま す . 
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・ プ ロ セ ス の 管理 情報 の 制御 関数 (GETPDB, SETPDB, PSPSET) 

・ プ ログ ラム を 常 及 さ せ て 終了 する 関数 (KEEPPR) 

・ 時 間 や 日 付 の 設定 

・Human68k の バー ジョ ン の 読込 み (VERNUM) 

・Human68k 内 の フラ グ や ファ ンク ショ ン キ ー の 設定 や 読込 み (VERFIY, FUNCKYGT.…) 
・ ベ クタ の 設定 や 読込 み (INTVCS, INTVCG) 

・68000CPU の 動作 状態 の 切換 え 


これ ら の な か で も , 時 間 や 日 付 の 設定 は , TIME コマ ンド や DATE コマ ンド で 設定 する も の で 
ちり , アプ リケーション か ら 勝 手 に 設定 すべ き 性 格 の も の で は あり ませ ん か ら , 一 般 的 に は 利用 
きれ な いで し ょ う . 

ベク タ を 書き 換え る こと で , エラ ー が 発生 し た と き の メ ッ セ ー ジ を 変更 し た り , 新しい DOS 
コー ル を つけ 加え た りす る こと が で きま す . 

CPU の 状態 の 切換 え (SUPER) は 、。 スーパーバイザ ステ ー ト に し た り , 逆 に ユー ザー ステ ー ト 
に 戻す こと を いい ます . スー パー バイ ザ ス テ ー ト に する こと で , X68000 の すべ て の メモ リ や 1/O 
を 自由 に アク セス で きる よう に な り ま す . 

上 に あげ た 以外 の 関数 に は , 環境 変数 の 設定 や 読込 み 。 メモ リ の 確保 や 開放 を する も の が あり 
ます が , 一 般 的 に は CLIB を 使っ て 行い ます 

ここ で は 例 と し て , メモ リ 中 に 常駐 し ,。 エラ ー が 発生 し た と き に エラ ー メ ッ セ ー ジ を 表示 きせ 
る プロ グラ ム を 作っ て み ま し た (リス ト 4.7, リス ト 4.8) . INTVCS 関数 で エラ ー に よる 割込み 
ベク タ を 書き 換え , KEEPPR 関数 で プロ グラ ム を 常駐 させ た まま 終了 させ て いま す . 





リス ト 4. フ エラ 処理 (error.c) 


1: #include <stdio.h> 

2: #include <doslib.h> 

9 

4: #define PRGLEN (_HEND - _PSP - 中 f9) 

5: #define TRAP14 (2e) 

6: #define LOW(s) ((S) 8 fff) | 引数 の 下位 1 パイ ト を 返す マク ロ 定 義 関数 = 

7: #define 10CSERR(errno) ((void)fprintf(stderr, "エラ ー($%94x) が 発生 し ーー ニニ 
まし た ", errno)) メッ セー ジ を 表示 する マ 

8 クロ 定義 数 

9: extern int _HEND, _PSP: 

19: extern void __errorOi …0 oiー アセ ンプ ラ て 記述 し た error 関 数 を 呼び 出す 下位 ルー チン 

11!: 

12: static char *mes 久 ] = { /* error code */ 

13: "Interrupt ス イッ チ が 押さ れ ま し た 「", /* 9x91f, 9x891f  */ 

14: "バス エラ ー が 発生 し まし た ", /* 9x992 */ 

15: "アド レス エラ ー が 発生 し まし た ", /* 9x993 */ 

16: "未定 義 命令 が 実行 され まし た 『, /* 久 4 */ 

17: "0 で 除算 し まし た ", /* 9x9995 */ 

18: "CHK 命 令 が 実行 きれ まし た 『, /* 9996 */ 

19: "TRAPV 合 令 が 実行 され まし た ", /* が 997 */ 

29: 6 の 衝 /* 9x998 */ 

2 。 す 5 
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22: static char *mesl[] = { 

23: "無効 な ユニ ッ ト を 指定 し まし た ", /* 9x?2 町 */ 

24: "ディ スク が 押入 され て いま せん ", /* 9x2292 */ 3 1 
25: "デバ イス ドラ イ バ に 無効 な コマ ンド を 指定 し まし た ”, 0 
26: /* 2293 */ 

27: "CRC ェ エラー", /* 2294 */ 

28: "ディ スク の 管理 領域 が 破壊 され て いま す ", /* 9x?295 */ 

29: "シー クエ ラー”", /* ix2296 */ 

3 "無効 な メデ ィ ア を 使用 し まし た ", /* 9x22 */ 

31: "セク タ が 見 つか り ま せん ”, /* 9x2298 */ 

32: "プリ ンタ が つなが っ て いま せん ”", /* 2799 */ 

33: "書き 込み エラ ー", /* 9x229a */ 

34: "読み 込み エラ ー”", /* 9x?2 蹴 */ 

35: "エラ ー が 発生 し まし た ”, /* 729c */ 

36: "プロ テク ト を 外し て 下さ い ", /* 9x?29d */ 

37: "書き 込み 不能 で す ,. ディ スク を 取り 替え て 下さ い ”" 

38: /* 了 i229e */ 

39: }: 

4 久 


41: int error(errno, sr, pc) 
42: unsigned short errno, srj 
43: unsigned int poi 





44: { 

45: if (errno == 中 吸 1f 1 errno == 81f) 【 

46: fputs(mes 外 胃 , stderr): 

47・ }) else if (errno >= 9x8 劉 9) 【{ 

48: IO0CSERR(errno): 

49: ) else if (9x9M2 <= errno && errno <= 9x9998) 【 

5 外 fputs(mes 氏 Lerrno - 1], stderr): 

51: 本 の else if (errno < 9x1999 | LOW(errno) < 9x91 1 了 e < LOWCerrno error に 応じ て 
メッ セー ジ 

52: IOCSERRCerrno): ey 

53: }) else 5 

54: fputs(mesl[LOW(errno) - 1], stderr): 

55: return 

56: } 

5 fprintf(stderr, " (SR=$%94x:PC=$%98x)", sr, pc): 

58: return 

59: } 

69: 

61: void main() 

62: 

63: INTVCS(TRAP14, _error)i の oi エラ ー 処 理 の 割込み ベク タ を _error ル ー チ ン に 変更 する 

64: KEEPPRCPRGLEN Di ii プロ グラ ム を 寺 終了 する 

65: } 


= 一 ご ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー フ ーー 


リス ト 4. 日 エラ 処理 (low.s) 
ニー 

















1: SAVEREG reg d9-d2/a9-a2 

2 

3: xdef __eTTOT 

4: __error:movem.1 SAVEREG,-(SP) ………… レジ スタ を 退避 する 

5: move.] 2(8a6),-(SP) error(errorcode, sr, pc) …………… エラ ー 発 生 時 の PC を スタ ッ ク に 積む 

6: move.1 (a6),-(SP) ……… エラ ー 発 生 時 の SR を スタ ッ ク に 積む 

7 move.| d7,-(SP) … エ ラー コー ド を スタ ッ ク に 積む 

8: Jsr SeTPOP TI error 関 数 を 呼び 出す 

9: lea 12SP),SP. 

0 ro 導 の 戻り 値 が 0( 中 目 ) だ っ た 場合 に 終了 処理 を 行う 

11: beq.s abort | 

12: return: movem.| (SP)+,SAVEREG ………… レジ スタ を 復帰 する 
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rte 
sbort: move.w #$ff,d9 | 
trap #15 終了 処理 を 行う 
bsr.s return | 
end 


1 0 WM 


画 その 他 

これ ら の 関数 は 。 ファ イル ハン ドル や ドラ イブ が 割り 当て られ た デバ イス ドラ イ バ を 直接 制御 
計る 関数 や , 漢字 変換 プロ セッ サ 用 の 変換 ウィ ンド ウ を 制御 する た め の 関 数 で す . し か し 特別 な 
計 半 以 外 に は , これ ら の 関数 を 使う こと は な いで し ょ う . 


24.4 IDCS コー ル ラ イブ ラリ (IOCSLIB.A) 

X68000 の IOCS を 名 前 で 呼び 出す た め の ラ イブ ラリ で す . IOCS は , 最も 低位 の ライ ブラ リ で 
すか ら , 使用 に あたっ て は C ラ イブ ラリ マニ ュ ア ル だ け で な く , プロ グラ マー ズ マ ニュ アル の 
IOCS コー ル の 章 に も 目 を 通し , それ ぞ れ の 関数 に つい て よく 理解 し て か ら 使っ て くだ さい . 

また , コン パイ ラド ライ バ を 使っ て コン パイ ル す る 場合 , この ライ ブラ リ は リン ク の 対象 に な 
り ま せん か ら , コン パイ ラド ライ バ の バン Y” オプ ショ ン を 指定 する 必要 が あり ます . 


田 キー ボー ド セ ン ス 関 数 

これ は キー ボー ド の 状態 を 直接 調べ た り , ソフ トキ ー ボ ー ド や 電卓 を サポ ー ト する た め の 関 数 
で す . この 関数 を 使う こと に よっ て , どの シフ トキ ー を 押し て いる の か と いっ た キー ボー ド に 対 
する 詳し い 情 報 な ど を 得る こと が で きま す . 


副 画面 制御 関数 
これ ら の 関数 は , 処理 する 対象 に よっ て 以下 の 4 つ に 分 けら れ ま す . 


・ 画 面 に 関す る 処理 

・ テ キス ト 画 面 に 関す る 処理 

・ グ ラフ ィ ッ ク 画 面 に 関す る 処理 
・ ス プラ イト 画面 に 関す る 処理 





画面 に 関す る 処理 に は , 画面 の モー ド や コン トラ スト の 変更 。 画面 の スク ロー ル が あり ます . 
これ ら の 関数 は テキ スト 画面 ,。 グラフィック 画面 . ス プラ イト 画面 に 影響 を 及ぼ し ます 

テキ スト 画面 に 関す る 処理 に は , 画面 へ の 文字 出力 や 1 行 抹消 な どの 画面 制御 , そ し て テキ ス 
ト 画面 へ の 描画 が あり ます . この うち 文字 出力 や 画面 制御 は で きる 限り CLIB の 関数 を 使っ て 行 
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いま す . また , テキ スト 画面 描画 関数 を 使う と か ん た ん に テキ スト 画面 上 に パタ ー ン や 箱 を 表示 
する こと が で きま す . 
グラ フィ ッ ク 画 面 に 関す る 処理 に は , その 制御 や 描画 が あり ます . この うち 描画 関数 は 座標 な 


どの 指定 が 難し いた め BASLIB の 関数 を 使い ます が , その 場合 は 




















ココ 





則 御 関数 も BASLIB 内 の 関数 


を 使い ,。 競合 が 発生 し な いよ うに し ます . 


スプ ライ ト 画 面 に 関す る 女 肝 








BE に は , スプ ライ ト 画 面 の 初期 化 や 表示 な どの 制御 ,。 ス プラ イト パ 


ター ン の 定義 や 抹消 ,。 バッ ク グ ラン ド の 設定 や 制御 な ど が あり ます . 
リス ト 4.9 に 示し た プロ グラ ム は 1IOCSLIB を 使っ て グラ フィ ッ ク 画 面 に デジ タル 時 計 を 表示 


する プロ グラ ム で す . 画 


い . 


























リス ト ノノ. 時 計 の 表示 (clk.c) 
人 


・ #define 
#define 
#define 
#define 
#define 
・ #define 
・ #define 
・ #define 


ぐ 〇 ⑤ コ の の な cktO 


トー 
ュー 


・ #define 
・ #define 


・ #define 
・ #define 


うつ エー トー トー トー トー ルー ルー トー 
や の ぐ - コ の の な で SFO 


1 お 


int 


な は で くく < ぐつ c う < くう c う っ <SEOKOEO う CSK ト OK ト OK トト SO ト う 
Sm で CCG コ の の の m な ckoO 一 Sco- コ の つの の た coSkS ピー 


#include <stdio.h> 
#include <iocslib.h> 
#include <time.h> 


SLOFF 19 

BODYOFF 49 

SPACE 5 

SEGSPC 19 

DOTH 49 

SIZE (SLOFF + BODYOFF + 
SEGH (SLOFF * 2 + SPACE 
SEGV (SLOFF * 2 + SPACE 
XOFF 58 

YOFF 199 

COL 15 

PAT 65535 


15 


・ void dot(x, y, 
・ int x, y, cli 


・ static char SEGMENT[1] = { 
9x77, 24, 9x6b, 6d, 9x3c, 
gx5d, 5f, 9x74, 7f, 9x7c 


・struct LINEPTR line = (9 9 9, 
・ struct FILLPTRfill = 人 9 


c]) 


line.color = cl 
for (i = 9 j」< SLOFFi if+) ( 


line.xl =x- j/2: 
line.yl =y+iji 
line.x2 =x+ jij/ 25 
line.y2 = ッ ォ ii 
LINE(&line): 

) 

line.xl =x- ji/ 2: 

line.yl =y+ji 

line.x2 = x+ ji/ 2: 


后 の 初期 化 な ど 





も IOCSLIB だ け で 行っ て いま すか ら , 参考 に し て くだ さ 


SLOFF) 
* 2 + SIZE) 
* 4+ SIZE*2) 


^0"ー^9” の 数 値 を 7 セグ メン ト て 表し た デー タ 


4 PAT お 5 
りり 


( 時 , 分 , 秒間 の ドッ ト を 1 つ 描 く 
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圭 - line.y2 =y+iii 
ー LINE(&line): 
コ y+= SLOFF * 2: 
っ for (ji = 明 1<SLOFFi im+) 【 
47- line.xl =x- j/2: 
48- line.yl =yーji 
3 line.x2 =x+i/2: 
に line.y2 =y - jj 
51- LINE(&line): 
52- 
53: } 
- yoid dots(x,y) 
2 時 分, 秒間 と ドッ 
dot(x + 29,y+ (SLOFF + SPACE + BODYOFF / 2), COL): っ w っ 生 


dot(x+ 2 y+(SLOFF*3+SPACE* 3 + BODYOFF + BODYOFF / 2), C 





に は 





0L): 
} 
・ Yoid vseg(x, y, cl) 
・ int x, y, cli 
64: { 
65 int jj 
66 
67 line.color = clij 
68 fill.color = cli 
69 for (ji = 中 ji< SLOFFi ji+) 【 
79 line.xl = x- ji: 
71 line.y1 =y+ii 
72 line.x2 = x+ ji: 
73 line.y2 =y+ ii 
74 LINE(&Iine): 
75 の っ e TM。 
76: 。 fill.xl = x- SLOFE: 1 1 
7 fill.y1 = y+ SLOFF: 
78: fill.x2 = x+ SLOFF: 
79 fill.y2 = y+ (SLOFF + BODYOFF): 
89 FILL(&fil1): 
81 y += SIZE: 
82 for (i = 角 ij<SLOFFi j++) ( 
83 line.xl =x- ij 
84 line.y1 =yーj 
85 line.x2 =x+ ji 
86 line.y2 =yーj 
87 LINE(&line): 
88: 
89: } 
9: 
91: void hseg(x, y, cl) 
92: int x, y, cli 
93: 【{ 
94: int ji 
95: 
96: line.color = cli 
97: fill.color = cli 
98: for (j = 明 ji<SLOFFi ir+) { 
99: line.xl = x+ ji 
199: line.y1 =yーjj 
191: line.x2 = x+ 
192: line.y2 =y+ ii 
193: 1 LINE(&line): 
194: se た = 
195: fill.x1 = x+ SLOFF: 2 
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196: fill.y1 = y - SLOFF: 

197: fill.x2 = x + (SLOFF + BODYOFF): 
198: fill.y2 = y + SLOFF: 

199: FILL(&fil1): 

11: x += SIZE: 

IBM for (ji = 世 ij<SLOFFi jr+) 【 
23 line.xl = x - jj 

MK 人 line.y1 =yーjj 

114: line.x2 =xーj5 

115: line.y2 =y+ ji 

116: LINE(&line): 

117: ) 

118: } 

119: 


129: void segment(x, y,n) 
121: im も > Ws ni 


122: { 

123: char segi 

124: 

125: x+= 19: 

126: y += 10: 

2475 seg = SEGMENT[n], 

128: if (seg & 中 91) 

129: hseg(x + SPACE, y + (SIZE * 2 + SPACE * 4), COL): 
139: else 

131: hseg(x + SPACE,y+ (SIZE* 2+ SPACE * 4), の : 
132: if (seg & 92) 

133: vseg(x, y + (SIZE + SPACE * 3), COL): 

134: else 

135: vseg(x,y+ (SIZE+ SPACE * 3), の : 

136: if (seg & 94) 

137: vseg(x + (SIZE + SPACE * 2), y + (SIZE + SPACE * 3), COL): 
138: else 

139: vseg(x + (SIZE+ SPACE * 2), y + (SIZE + SPACE * 3), の : 
149: if (seg & 98) 

141: hseg(x + SPACE, y + (SIZE + SPACE * 2), COL): 
142: else 

143: hseg(x + SPACE, y + (SIZE + SPACE * 2), 
144: if (seg & 1 の 

145: yseg(x, y + SPACE, COL): 

146: else 

147: vseg(x, y + SPACE, の : 

148: if (seg & 中 29) 

149: vseg(x + (SIZE + SPACE * 2), y + SPACE, COL): 
159: else 

151: vseg(x + (SIZE + SPACE * 2), y + SPACE, の : 
152: if (seg & X4 の ) 

153: hseg(x + SPACE, y, COL): 

154: else 

155: hseg(x + SPACE, y, 9 の: 

156: } 

67 が 


158: void prtime(h, m, s) 
159: int h, m, si 





1 桁 の 数 値 を 7 セグ 
メン ト て 表示 する 








169: { 
161: segment(XOFF + (SEGH * 9+ SEGSPC * 9+ DOTH * 9), YOFF,h/ 1 の : 
162: segment(XOFF + (SEGH * 1 + SEGSPC * 1 + DOTH * の, YOFF,h % 1 の : 
163: dots(XOFF + (SEGH * 2 + SEGSPC * 1 + DOTH * 9), YOFF): 時 間 を 調べ て デジ タル 
164: segment(XOFF + (SEGH * 2 + SEGSPC * 1 + DOTH * 1), YOFF, m / 19): | 時 証 の よう に 表示 する 
165: segment(XOFF + (SEGH * 3 + SEGSPC * 2 + DOTH * 1), YOFF, m% 19): 
166: dots(XOFF + (SEGH * 4 + SEGSPC * 2 + DOTH * 1), YOFF): 
167: segment(XOFF + (SEGH * 4 + SEGSPC * 2 + DOTH * 2), YOFF, s / 1): 
168: segment(XOFF+ (SEGH * 5+ SEGSPC * 3 + DOTH * 2), YOFF,s% 19): 
169: } 
270 
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17 上 : 

171: void clock() 

172: { 

173: struct tm *lctimei 

174: int gmt: 

HI75: 

176: time(&gmt): 

上 7- lctime = localtime(&gmt): 
178: ) prtime(lctime->tm_hour, lctime->tm_min, lctime->tm_sec), 
179: 

189: 

181: void main() 

旧 28 【 


183: CRTMOD(16): | 
184: G_CLR_ONO: 
185: while (の 」 
186: clock(): ] 
187: } 


画面 を 初期 化し て 


時 間 を 表示 し つづ ける 





画 漢字 処理 関数 
漢字 の 読込 みや 外字 の 読込 みや 設定 を 行う 関数 で す . また , ロー マ 字 変換 、 シフ ト JIS コー ド 
と JIS コー ド 間 の 変換 を する 関数 も 含ま れ て いま す . 


男 G- ご ヨコ ら 〇 や プリ ンタ (の 制御 関数 

RS-232C の 設定 や 回 線 状 態 の 読込 み 。 デー タ の 転送 を する 関数 が 含ま れ て いま す . 

プリ ンタ の 制御 関数 に は ,。 プリ ンタ ポー ト の 初期 化 や 状態 を 調べ る 関数 。 プ リン タ ヘ デー タ を 
出力 する 関数 が あり ます . デー タ 出 力 関数 に は OUTLPT 関数 と OUTPRN 関数 の 2 種類 が あり 
ます . 漢字 な どの 2 バイ トコ ー ド を 出力 する 場合 , OUTLPT 関数 だ と 2 バイ ト の デー タ が その ま 
ま 出力 され ます が , OUTPRN 関数 は その デー タ が 漢字 コー ド だ と いう こと を 認識 し て , プ リン タ 
に 対す る 制御 コー ド を 付加 し て 出力 し ます . 


弄 マウ ス こ ジョ イス ティ ッ ク の 制御 や 読取 り 関 数 
マウ ス の 移動 範囲 を 決め る 関数 。 マウ スカ ー ソ ル の パタ ー ン 設定 関数 。 そ し て マウ スタ カー ソル 
で アニ メー ショ ン を する 関数 , また , マウ ス の 位置 や ボタ ン を 調べ る 関数 な ど で す . 


田 サウ ンド 関数 

サウ ンド は, ADPCM に 関わ る 関数 と FM 音源 に 関わ る 関数 に 分 れ ま す . 

ADPCM に 関連 の 関数 は , DMA 転送 の 種類 別に 3 種類 あり ます . その うち ADPCMINP 関数 
と , ADPCMOUT 関数 が 最も か ん た ん に 使え る 関数 で す . これ 以外 に も ADPCMSNS 関数 、 
ADPCMMOD 関数 が あり ます . リス ト 4.10 で は ADPCMINP 関数 を 使っ て いま す . 

FM 音源 を 扱う 場合 は , C 言語 や アセ ンプ ブラ か ら で は な く ,X-BASIC の MML で 制御 テ チ る の が 
は る か に 便利 で 確実 で す . 
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リス ト 4.10 に ADPCM を 用 いて 4 秒 以内 の 音声 を BEEP.SYS と 同じ 15.6KHz の サン プリ 
ング 周波 数 で 録音 や 再生 する プロ グラ ム を 示し ます . な お 録音 する 音声 は , X68000 の 背面 に ある 
オー ディ オ 入 力 端子 か ら 入力 され る 音声 で す . 

使用 法 は , 次 の と お り で す . 





adpcm 一 r < ファ イル 名 >  … 録音 時 
adpcm 一 DP < ファ イル 名 > …: 再生 時 


リス ト ノイ. 1 ADPOM を 使っ た 録音 と 再生 (adpcm.C) 


#include <stdio.h> 
#include <error.h> 
#include <fcntl.h> 
#include <io.h> 
#include <iocslib.h> 
#include <stat.h> 


#define ADPCMMODE 9483 /* 15.6KHz2 サ ンプ リン グ , ステ レオ 出力 */ 


#define END 9x99 
#define SECMAX 4 
・ #define SECSIZE 78 /* ADPCMMODE で 1 秒間 に 使う サイ ズ */ 
・ #define ERROR (-1) 
・ #define RMODE (0_RDONLY | 0_BINARY) 
・ #define WMODE (0_CREAT | 0_TRUNC | 0_WRONLY | 0_BINARY) 
・ #define PMODE (S_IREAD | S_IWRITE) 
・ static unsigned char Buffer[SECMAX * SECSIZE]!) ………ー SECMAX 秒 の 音声 デー タ 用 の バッ ファ 
・ void record(unsigned char *, jnt), play(unsigned char *。 jintO)i oon 録音 する 関数 と 再生 する 関数 


kー ニ ーーー ニ ーー ニー ニーー ニ ーー テー 
Sccoo-aao の の motomScoo-ao の om coStO 一 





21: void main(argc, argv) 

22: char *argv[]: 

し が 

24: int sizei 

25: int fdij 

26: 

278 if (argc != 3) { | 

28: fprintf(stderr, "Usage : %s {-rl-p}】 filename\n”, argv[]), | 引数 が 正しく な い 場 合 に 使 
29: exit(1): い 方 を 表示 し て 終了 する 

39: 

31: if (strcmpi(argv[1], "-r”7) == の 5 

32: if ((fd = MM WMODE, PMODE)) == ERROR) { | 

33: perror(argv[2]): 3 ー プ ・ 

94 exit(⑪: | ファ イル を オー プン する 

35。 

36: record(Buffer, sizeof(Buffer))j ………… 4 秒 の 音声 デー タ を 録音 する 

37・ 和 if ((size = write(fd, Buffer, sizeof(Buffer))) < sizeof(Buffer ) 

38: if (size != ERROR) 

39・ 和 fprintf(stderr, "%S: ディ スク が いっ ぱい で す \n”, argy[2 音声 デー タ を ファ イル に 
49: * 5 書き 出す . エ ラー が 発生 し 
41: perror(argv[2]): Sysiei 月 が 
42: close(fd): ー 

43: unlink(argv[2]): 

44: exit(1): 

45: 

46: close(fd): 





ダグ リウ 
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47: ) else { 

48: if ((fd = open(argv[2], RMODE)) == ERROR) ( | 

49: perror(argv[2]): ファ イル を オー プン する 

59: exit(1): 

51: ) 

523 if ((size = read(fd, Buffer, sizeof(Buffer))) == ERROR) { 

53: perror(argv[2]): 再生 する 春 声 デー タ を 読み 込 
54: close(fd): む . エラ ー が 発生 し た 場合 は 
55: exit(1): エラ ー 処 理 を し て 終了 する 
56: 

57: close(fd): 

58: play(Buffer, size)i ………… 音声 デー タ を 再生 する 

59: 

69: exit( の : 

61: } 

62: 


63: void record(buf, size) 
64: unsigned char *bufi 


65: 

66: ADPCMMOD(END)) ………… ADPCM 処 理 を 終了 させ る 

67: ADPCMINPCbuf, ADPCMMODE, size)i ーー 録音 を 開始 する 
68: while (ADPCMSNS() != ENDD) it 録音 が 終了 する まで 待つ 
69: } 

79: 


71: void play(buf, size) 
72: unsigned char *buf: 


73: 

74・ ADPCMMOD(END)) ………… ADPCM 処 理 を 終了 させ る 

75< ADPCMOUT(buf, ADPCMMODE, size)) …… 再生 を 開始 する 
76: } 


弄 シス テム 制御 関数 

X68000 の ROM の バー ジョ ン や 起動 きれ て か ら の 時 間 を 調べ る 関数 , メモ リ の 読み 書き を す 
る 関数 , 時間 や 日 付 の 設定 や 読込 み を 行う 関数 な ど が 含ま れ て いま す . また , X68000 特有 の ア 
ラー ム に よる 電源 の ON プ OFF を する た め の 関 数 も あり ます . 

例 と し て , X68000 を 起動 する 時 刻 と , 起動 し て か ら 停止 する まで の 時 間 . そし て 起動 と 停止 を 
設定 する プロ グラ ム を あげ て お きま す ( リ スト 4.11). この プロ グラ ム を 使え ば , 毎日 , 毎週 。 毎 
月 と いう 単位 で これ ら の 設定 を 行う こと が で きま す ( 表 4.6). 


リス ト 4. ] ] ラーム コマ ンド (alarm.c) 


・ #include <stdio.h> 

・ #include <ctype.h> 

・ #include <string.h> 
・ #include <iocslib.h> 


・ #ifdef TRUE 

・# undef TRUE 

・# undef FALSE 

・ #endif 

・ #define TRUE (1) 
・ #define FALSE (の 


マク ロ "TRUE" "FALSE" の 定義 


1 
2 
3 
4 
5 
6 
記 
8 
9 
! 
1 


トー トー 
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12: 
13: #define DISABLE (9) ] 
14: #define ENABLE (1) : ALARMMOD 関 数 の 引数 に 利用 する マク ロ 
15: #define NOTICE ⑫) | 
16: 
17: #define isDay(a) ((m) >= 1 8& (8) <= 31) ………t… 
18: #define isHour(a) ((。) >= 9 && (』a) <= 23) … 
19: #define isMinute(a) ((』) >= 9 8&& (a) <= 59) ………… 
29: #define ubcd2tobin(a) (((a) >> 4 & f) * 19+ ((a) & 9Xf)) 符号 な し BCD2 桁 の 数 値 を バイ 
21: ナリ に 変換 する マク ロ 
22: typedef jnt BOOL: 
23: typedef enum { 
24: EVERYDAY, 
25 EVERYWEEK, アラ ー ム の 間隔 を 表す 
26: EVERYMONTH 
27: } INTERVAL: 
28: typedef enum { 
295 COMTV, 
3: COM, 
31: TVCONTROL, アラ ー ム 発生 後 の 動 作 を 表す 
いれ TVCTRL_PON, 
33: JMPENTRY 
34: }】 ALARMCTRL: 
35: typedef struct 【 ] 
36: int week, day, hour, minutei 
37: int offtime: | 
38: INTERVAL jntervali: ( アラ ー ム の 設定 内 容 を まとめ た 構造 体 
39: ALARMCTRL mode: 
49: int job: 
41: }】 ALARMDATA: 
42: typedef enum 【 
43: NOERR, 
44: NOTOPT, 
45: BADDAY, 
46: BADWEEK, 本 上 
47: BADHOUR。 ーー 
48: BADMINUTE, 
49: BADOFFTIME, 
59: FAILSETALARM, 
51: } ERRTYPE: 
52: 
53: static *local_errmsg[] = { 
54: 1 2 
55: "不正 な オプ ショ ン を 指定 し まし た ", 
56: "日 の 値 が 不正 で す ", 
57: "曜日 の 指定 が 不正 で す ", エラ ー メ ッ セ ー ジ 
58: "時 の 値 が 不正 で す ", | 
59: "分 の 値 が 不正 で す ", 
69: "電源 OFF ま で の 時 間 の 指定 が 不正 で す ”, 
61: "アラ ー ム の 設定 に 失敗 し まし た ”" 
62: ): 
69: 
64: ERRTYPE localerrnoi 
65: 
66: void GetAlarm(buf) ………|… ド | 現在 の アラ ー ム の 設定 内 容 を バッ ファ に 格納 する 
67: register ALARMDATA *bufi 
68: { 
69: int time: 
7 外 
が ALARMGET(&time, &buf->offtime, &buf->job)) ……ー 現在 の アラ ー ム 設定 内 容 を 得る 
78: if ((buf->week = ubcd2tobin(time >> 24 & 9xf)) <= 6) { 曜日 の 値 が 正しけれ ば , アラ ー ム 
9 buf->interval = EVERYWEEK: の 発生 間 馬 は 週 単位 (毎週 ) 
74: ) else { 
75: buf->day = ubcd2tobin(time >> 16 & 9xff): 
214 
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76: 
9 
78: 
9 
89: 


82: 
83: 
84: 
85: 
86: 
87: 
88: 
89: 
99: 
9 
92: 
9 
94: 
95: 


97 ミ 
98: 
99: 
199: 
191: 
192: 
193: 
194: 
195: 
196: 
197: 
198: 
199: 
118: 
111: 
112: 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
129: 
121: 
122: 
123: 
124: 
125・ 
126: 
1273 
128: 
129: 
139: 
131: 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 


if (isDay(buf->day)) …… バ ドド | ボ | 日 の 値 が 正しけれ ば , 毎月 . そ う で な けれ ば 毎日 
buf->jnterval = EVERYMONTHi 

else 
buf->interval = EVERYDAY: 





} 
buf->hour = ubcd2tobin(time >> 8 & 中 ff): 
buf->minute = ubcd2tobin(time & ff): 
if (buf->job == の 
buf->mode = COMTV: 
else if (buf->job == -1) 
buf->mode = COM: 
else if (buf->job >= 1 && buf->job <= 9x1f) 
buf->mode = TVCONTROL: 
else if (buf->job >= 29 && buf->job <= 9x3f) 
buf->mode = TVCTRL_PON: 
else 
buf->mode = JMPENTRY: 


ラー ム 発 生後 の 動作 を 調査 











void PrintAlarmCnf() ………… 現在 の アラ ー ム の 設定 内 容 を 表示 する 


static char *weekname[] = { 


” 日 ", 9 = 0 ? 水 7, 3 末 る 2 MM 
ALARMDATA buf: 


if (ALARMMOD(NOTICE) != ENABLE) { 
puts(”ALARM: 現在 アラ ー ム は 禁止 され て いま す ?): 
returhnj 


) 
puts("ALARM: 現在 アラ ー ム は 利用 され て いま す "): 
GetAlarm(&buf): 
fputs(”\# 時 刻 : ", stdout): 
switch (buf.interval) { 
case EVERYMONTH : 
printf(" 毎 月 %d 日 ", buf.day): 
break: 
case EVERYWEEK : 
printf(" 毎 週 %5 曜 日 " weekname[buf.week]): 


breaki 
default ・ 
fputs(" 毎 日 ", stdout): 
breaki 
) 
printf(” %d 時 %d 分 \n", buf.hour, buf.minute): 
fputs(" 導 電源 :  ”", stdout): 


if (buf.offtime == 
puts("OFF し な い "): 
else 
printf("%d 分 間 ON に する *n", buf.offtime): 
fputs(" 煽 モード: ", stdout): 
switch (buf.mode) { 
case COMTV : 
puts(" コ ンピュータ テレ ビ ”): 
breaki 
case COM : 
puts(" コ ンピュータ の みり"): 
breakj 
case TVCONTROL : 
puts(" ツ テレ ビ コ ン トロ ー ル "): 
breakj 
case TVCTRL_PON : 
puts(" 電 源 を ON に し た 後 で ,。 テレ ビ コ ン トロ ー ル ”"): 
breaki 





ト っ 
"1 
(」 
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149: default : 

141: printf(" ア ドレ ス 3$ 交 84 へ ジャ ンプ する *”, buf.job)) 

142: break: 

143: 

144: puts("9): 

145: } 

146: 

147: BOOL SetAlarm(p) ……" "の あら た に アラ ー ム を 設定 する 

148: register ALARMDATA *p: 

149: 5 

159: register jint datetime: 

151: 

152: switch (p->interval) { 

153: case EVERYMONTH : 

154: datetime = 9xffM 上 99 | p->day / 19 << 29 | p->day % 19 << 16: 

155: break: 

156: case EVERYWEEK : 

157: datetime = p->week << 24 | 9xff9999: ALARMSET 関 数 の 引数 

158: breaki の 仕様 に 合わ せ て , 

159: default : datetime を 作成 する 

169: datetime = ffff9999: 

161: breaki 

162: 

163: datetime != p->hour / 19 << 12 | p->hour % 19<<81I 

164: p->minute / 19 << 4 | p->minute % 1 中 

165: if (ALARMSET(datetime, p->offtime, 9) == -1) { 

166: return FALSE: 

167: } 

168: return TRUE: 

169: } 

179: 

171: BOOL stoud2(src, dst, delm) … "ol 文字 列 **src よ り 最 大 2 桁 の 符号 な し 10 進 表現 を 数 値 に 変換 し , 

172: char **sroi dst に 格納 する . delm で 指定 され た 区 切り 文字 が な けれ ば エラ ー. 

173: int *dst: 実行 後 , *src は 区 切り 文字 の 次 の 文字 を 指す . 

174: char delmi 

175: 

176: register char *pi 

177: register jint ni 

178: 

179: P = *STCj 

18: if (xp != "8& jisdigit(*p)) 【 

181: nh = *p++ ーー 曰 人 5 

182: if (*p != 部) && isdigit(*p)) 

183: eS NE | 2 ある 場合 の 処理 

184: if (*p == delm) { 

185: *dst = ni 

186: *STC = ++Di 

187: return TRUE: 

188: 

189: } 

199: return FALSE: 

191: } 

192: 

193: int chkWeek(s) ………… オプ ショ ン に 含ま れる 曜日 の 指定 が 正しい か どう か 

194: register char **s, チェ ッ ク す る . 実行 後 *s は , 曜日 の 指定 の 直後 を 指す 

195: { 

196: static char *opt_w[] = { 

197: "SUN",。 "MON"。 PTUEP。 "WED" 7THUP」。 "FRIP」 "SAT” 

198: お 

199: register int j, Ji 

299: 

291: for (ji ミ 志 1 < 7: tt).【 か 

292: for (J= 葛 <3j j+ 字 ・ 小 区 別 せ ず に , パ 

NRN + ))) != *(opt_w[i] + ))) | oy 
276 
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285・: } 

296: if (j== 3) 5 

297・: *S += 3: 

298: return jj 

299・ 

218: } 

211 return -15 

212: 

213: 

214: BOOL getopt(arg, buf) ………… オプ ショ ン を 得る 

215: char *argi 

216: register ALARMDATA *bufi 

加 和 7 ( 

218 switch (tolower(*arg)) { 

219: C8S6 oe アラ ー ム の 周期 を 毎月 と 指定 し た 場合 

22g: 8T8g++: 

221: if (!stoud2(&arg, &buf->day,。 うう ロロ !isDay(buf->day)) { 
の 2 の 5 localerrno = BADDAY 

223: return FALSE: 

224: ) 

225: buf->interval = EVERYMONTHi 

226: breakj 

227: CaS6 Wnn アラ ー ム の 周期 を 毎週 と 指定 し た 場合 

228: 8T8g++: 

229: if ((buf->week = chkWeek(&arg)) < 1 *arg++ != ko 
239: localerrno = BADWEEK: 

231: return FALSE: 

232・ ) 

233: buf->jinterval = EVERYWEEK 

234: breaki: 

235: case di rononni アラ ー ム の 周期 を 毎日 と 指定 し た 場合 

236: 8Tg += 2: 

237: buf->jinterval = EVERYDAY: 

238: breaki 

239: default : 

24: localerrno = NOTOPT: 

241: return FALSE: 

242: 

243: if (!stoud2(&arg, &buf->hour, うう ロ !jsHour(buf->hour)) { 
244: localerrno = BADHOUR: 

245: return FALSE: 

246: 

247: if (!stoud2(&arg, &buf->minuts, "ー7) !jsMinute(buf->minute)) { 
Z48: localerrno = BADMINUTE: 

249: return FALSE: 

259: 

251: if (Xarg != "部 7) ( 

252: if (!stoud2(&arg, &buf->offtime, 7) buf->offtime > 69) { 
253: localerrno = BADOFFTIME: 

254: return FALSE: 

255: 

256: ) else { 

257: buf->offtime = 9: 

258: 

259: return TRUE: 

269: } 

261: 

262: void usage() …………… 使用 法 を 表示 する 

263: { 

264: fputs(" 使 用 法 : ALARM[ ON IOFFI {tm<dd>Iwsstr>ld}:<hh>:<mm>-[<t im 


e>]]\n", stderr): 


rr) 


fputs("\t<dd>, <hh>,<mm> 日 , 時 , 分 を 表す 19 進 数 (最大 2 桁 ) 町”, stde 


fputs("\t<str> 曜日 を 表す 英語 \n”, stderr): 





リグ 
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267: fputs("\t<time> 電源 0OFF ま で の 時 間 (分 単位 , 最大 69 分 ) \n”, 
stderr): 

268: fputs("\n", stderr): 

269: } 

270: 

271: void errout(O …………… エラ ー メ ッ セ ー ジ を 表示 する 

272: { 

273: if (localerrno != NOERR) { 

274: fputs("ALARM: ", stderr): 

275: fputs(local_errmsg[localerrno], stderr): 

276: fputs("\n", stderr): 

277: ) 

278: usage(): 

279: } 

28: 


281: void main(argc, argv) 
282: int argcoi 
283: char *argv[]: 



































284: { 
285: ALARMDATA alarmbufi 
286: 
287: localerrno = NOERRI ………… エラ ー 番 号 を 初期 化 
288: if (argc <= 1) { 
289: PrintAlarmCnf(): 
299: ) else if (strcmpi(argv[1], "ON") == の) { 
291: ALARMMOD(ENABLE): 
292: puts("ALARME アラ ー ム を 許可 し まし た ”): 
293: ) else if (strcmpi(argv[1], "OFF”) == 9) { 
294: ALARMMOD(DISABLE): 
295: puts("ALARME アラ ー ム を 禁止 し まし た "): 
296: ) else if (getopt(argy[1], &alarmbuf)) { 
297: if (SetAlarm(&alarmbuf)) 
298: puts("ALARME アラ ー ム を 新た に 設定 し まし た "): 
299: ) else if (strcmpi(argv[1], "-27) == の 人 | 
3 久 : usa&e(): | ヘル プ ( 使 用 方 法 ) を 表示 する 
391 : ) else if (strcmpi(argv[1], "-help") == 9) { ) 
392: usage(): 
393: ) else { 
394: errout(): 
395: exit(1): 
36: 
397: exit(⑳): 
398: } 
書式 ALARM オプ ショ ン 
@ オ プシ ョ ン 
アラ ー ム の 発生 を 許可 する 
アラ ー ム の 発生 を 禁止 する 
2 毎月 指定 し た 日 に アラ ー ム を 発生 させ る 
時間 」 dy> は 日 を 表す 最大 2 桁 の 10 進数 (31) 
毎週 指定 し た 曜日 に アラ ー ム を 発生 させ る 
WK<str> : 時 間 | <str> は 曜日 を 表す 英語 (3 文字 の 略称 ) 
Sun, mon, tue, wed, thu, fri, sat 
D : 時 間 毎日 アラ ー ム を 発生 させ る 
-help 簡単 な 使用 法 を 表示 する 
-? -help と 同じ 
278 
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@ 時 間 
く <hh> : <mm> 一 く time> 
<hh> 時 を 表す 最大 2 桁 の 10 進数 (0 て 23) 
<mm> 分 を 表す 最大 2 桁 の 10 進数 (0 て 59) 
アラ ー ム が 発生 し て か ら 電 源 を OFF する まで 
吉 の 時 間 . 分 で 表し , 最大 60 分 まで 指定 で き 
る . 無 指定 か ある い は は 0 の 場合 は 電源 を OFF 
し な い 
注意 : <mm> の 後ろ の パー” は 省略 で き な い 
@ 使用 例 


ALARM M13 : 7 : 3 本 


毎月 13 日 午前 7 時 31 分 に アラ ー ム を セッ ト す る 
電源 は ON の まま 





ALARM D :0:0-47 


毎日 午前 0 時 0 分 に アラ ー ム を セッ ト す る 
起動 し て か ら 47 分 後に 電源 を OFF する 








表 4.B アラ ー ム コマ ンド の 仕様 


田 ディ スク ドラ イブ 

ディ スク か ら デ ィ レ クト リ や ファ イル 構造 に 関係 な く , 特定 の セク タ を 読み 込む せこ と が で きる 
関数 で す . 一 般 に は あま り 使 われ な いで し ょ う が , 誤っ て 削除 し て し まっ た ファ イル を 復活 させ 
る と か , Human68k の ディ レク トリ 構造 を 調べ る と か いっ た 特別 な 用 途 で は ぜひ と も 必要 な 関数 
と いえ ます . 


一 その 他 
以上 で 紹介 し な か っ た 関数 と し て は , X68000 用 の TV や キー ボー ド の LED を コン トロ ー ル す 


る た め の 関 数 が あり ます . これ も , 知っ て お く と 便利 な 場合 が ある か も し れ ま せん . 


2. つ 開発 環境 を 整え よう 


パッ ケー ジ の 内 容 に つい て 理解 で きた ら 。 プロ グラ ム を 開発 する た め の 環 境 を 作っ て み ま し ょ 
う . ここ で いう 環境 と は , ディ レク トリ 構成 , 環境 変数 。 デバ イス ドラ イ バ の 着 
業 を する た め の 準 備 を 指し ます . この 環境 を どの よう に 作る か に よっ て ,。 作業 効率 が 変っ て きま 
3 
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一 フロ ッ ピ ー デ ィ ス クシ ステ ム の 場合 

フロ ッ ピ ー デ ィ ス ク だ け の シス テム 構成 で 環境 を 整え る 場合 は , 用 途 に 応じ て 分 けた 2 枚 の フ 
ロッ ピー ディ スク で 行い ます . 2 枚 う ち 1 枚 を プロ グラ ム や ツー ル 類 の た め の フ ロッ ピー ディ ス 
ク に し て , シス テム ディ スク と 呼ぶ こと に し ます . そし て , も う 1 枚 を ソー ス フ ァ イル や オブ ジェ 
クト ファ イル の た め の フ ロッ ピー ディ スク と し て , ワー ク デ ィ ス ク と 呼ぶ こと に し ます 。. 

シス テム ディ スク に は , 図 4.3 に 示す ファ イル を 格納 し て くだ さい . これ は 最低 限 必要 だ と 思 
われ る ファ イル だ け で すか ら , その ほか に 使い た い プ ログ ラム な ど が あれ ば , 容量 の 許す 限り 入 
れ て し まっ て も か まい ませ ん . 


\ー ィ ー BASIC2 … X-BASIC 関連 の ファ イル を 格納 する た め の デ ィ レ クト リ 








ト F 一 BC ……… BASTOC 関連 の ファ イル を 格納 する た め の デ ィ レ クト リ 
トーCC ememmtnn C 関連 の ファ イル を 格納 する た め の デ ィ レ クト リ 
これ ら の ディ レク トリ は CCompiler PRO-68k の シス テム ディ スク 中 の 同じ 名 前 の ディ レク トリ と 同じ 
内 容 
トー INCLUDE ……… ヘッ ダ を 格納 する た め の デ ィ レ クト リ 
トーLIB oooiiit… ライ ブラ リ を 格納 する た め の デ ィ レ クト リ 
トーLOOCAL … (ii 自分 で 作っ た 外部 コマ ンド の ファ イル を 格納 する た め の デ ィ レ クト リ 
トー BIN … の oi C Compiler PRO-68K や X68000 本 体 に 付属 し て いた 外部 コマ ンド ファ イル が 入る 
トー ARJX ーー ドーーー… アー カイ バ 
トー AS … で iii…… アセ ンプ ブラ 
一 CASHX ーー ファ イル を キャ ッシュ する 
トー CO … eeiet… コン パイ ラド ライ バ 
トー CV で で つつ ee コン バー タ 
ーー DBJX ー…… ド ーー デバ ッ ガ 
トー DUMPX ………… ファ イル 内 容 を ダン プ す る 
トー ED.HLP ……… の の … エディ タ の ヘル プ フ ァ イ ル 
ーー ED で エディ タ 
ト 一 FORMATX。…… フォ ー マ ッ 名 
トーLKJX… の remee… リン カ 
トー MORE.X ………… ファ イル 内 容 を 表示 する 
トー MOVE.X ………… ファ イル を 移動 する 
トー PROCESS.X …… メモ リ 内 の 状態 を 調べ る 
トー TARIX……ー ド ーー…… 新しい ファ イル を 転送 する 
ーーTOUCHX ……… ファ イル の 日 付 を 変え る コマ ンド 
ーーSYS あっ Human68k シス テム を 起動 する と き に 使う デバ イス ドラ イ バ な ど を 格納 する た め の デ ィ 
レク トリ 
トー BEEP.SYS ……… ビー プ 背 の デー タ 
一 FLOAT2.X ……… 浮 動 小数 点 演算 用 の デバ イス ドラ イ バ 
トーOPMDRV.X_…… FM 音源 用 の デバ イス ドラ イ バ 
トー PCMDRV.SYS … ADPCM 用 の デバ イス ドラ イ バ 
ー PRNDRV.SYS … プ リン タ 用 の デバ イス ドラ イ バ 





ー COMMAND.X 


4. コ シス テム ディ スク の ディ レク トリ 構成 


220 








Pi 





4.3 開発 環境 を 整え よう 


CAL と いう サブ ディ レク トリ に は あら た に 自分 で 作成 し た 外部 コマ ンド を , BIN と いう サ 
詞書 4 え レ クト リ り に は シス テム ディ スク に 付属 し て きた コマ ンド な ど を 入れ る と と に し ます 、. 
この 区 別 は それ ほど 厳密 に 決め る 必要 は あり ませ ん が , 1 つの サブ ディ レク トリ に 格納 する 
テ ァ イル の 数 を 制限 し て お く こ と で 管理 が し や すく な り , それ ぞ れ の プロ グラ ム の 働き を 忘れ に 
くす る と いう メリ ッ ト が あり ます . 
ファ イル の コピ ー が 終了 し た ら , エディ タ を 起動 し て CONFIG.SYS( リ スト 4.12) と 
UTOEXEC.BAT( リ スト 4.13) を 作成 し ます 。 





リス ト 4.1 選 CONFie.SYg 


1EFILES =15 

2: BUFFERS = 29 

3: BELL = \SYS\BEEP.SYS 

4: DEVICE = \SYS\PRNDRV.SYS 

5: DEVICE = \SYS\PCMDRV.SYS 

6: DEVICE = \SYS\RAMDISK.SYS #G 
7: DEVICE = \SYS\OPMDRV.X 

8: DEVICE = \SYS\FLOAT2.X 

9: VERIFY = ON 





リス ト 2.1 紀 AUToOExEC.BAT 


1: PATH AIA 学 SYSjAE\BINiAE\LOCALiAE\CCiAE\BCiA:\BASIC2 
2: TEMP C: 

3: set lib=a:\]ib 

4 


・ set jinclude=a:\include 





この シス テム 構成 で は 。 グラ フィ ッ ク RAM を RAM ディ スク と し て 使う こと に し ます . この 
場合 、 グ ラフ ィ ッ ク を 表示 し た あと は RAM ディ スク が 使え を なくなっ て し まい ます . その 場合 は , 
FORMAT コマ ンド で 初期 化し な お す 必 要 が あり ます . 

ワー ク デ ィ ス ク に は , プロ グラ ミン グ 言 語 別に 図 4.4 の よう な ディ レク トリ を 作り ます . そし 
て と の ディ レク トリ の 下 に , さら に プロ グラ ム ご と に ディ レク トリ を 作っ て , その 下 で エディ ッ 
ト や デバ ッ グ を し ます (X-BASIC の プロ グラ ム は BASTOC に よっ て 変換 され る の で , ディ レク 
ドリ BC の 下 で 行う )。 

ルー トディ レク トリ に は , FNC と いう サ プ デ ィ レ クト リ が あり ます が , この ディ レク トリ は 外 
部 関数 関連 の ファ イル を 収め る た め に 使う こと に し ます . また , 完成 し た プロ グラ ム ほ 。 年 業 有 
の ディ レク トリ か ら 。 シス テム ディ スク の LOCAL と いう サブ プ デ ィ レ クト リ に 移し まま すず 。 

この よう な 構成 が で き あ が れ ば , 常に シス テム ディ スク を ドラ イブ A に , ワー ク デ ィ ス ク を ド 
ライ ブ B に 挿入 し て お く こ と で , い つ で も 同じ 環境 で 作業 する こと が で きま ます. 
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\ ASM CU oe アセ ンプ ブ ラ の ソー ス , オブ ジェ クト な ど を 格納 する 
BOT た X-BASIC の ソー ス , BASTOC の オブ ジェ クト な ど を 格納 する 
FNC… mmo X-BASIC の 外部 関数 を 作る た め の フ ァイル を 格納 する 
(の RBSASSE2boRGSBc C の ソー ス , オブ ジェ クト な ど を 格納 する 


4.4 ワー ク デ ィ ス ク の ディ レク トリ 構成 


還 ハー ド デ ィ スク シス テム の 場合 

ハー ド デ ィ スク を 備え た シス テム で も , 基本 的 に は 同じ ディ レク トリ 構成 で よい で し ょ う .。 た 
だ し , ワー ク デ ィ ス ク に 相当 する も の と し て , work な ど と いう 名 前 を つけ た サブ ディ レク トリ を 
作っ て お きま す . その 下 に 図 4.4 と 同じ ディ レク トリ を 作れ ば よい で し ょ う . 以後 は コン パイ ル 時 
の パス 指定 に 気 を つけ れ ば , フロ ッ ピ ー デ ィ ス クシ ステ ム の 場合 と 同じ に 使え ます . 


アク 





トニ ニー ニー ニニ ニニ ニー ニニ ニニ ニニ ニニ ニニ ニー ここ と ニー ニニ 
だ ー ュ リ 


ーー 


XBBDDD ら し い ブロ グラ 


GO Compiler PRHO-B8K に は 3 つの プロ グラ ミン グ 言 語 と 
+ つの コン バー タ が は いっ て お り , それ ぞ れ の 言語 の 特徴 に 応じ た 
< 使い 分 け を し な か ら ブ ログ ラム を 開発 する こと か で きま す . そして, 
最も 大 き な メリ ッ ト は , これ ら の 言語 で 作っ た モジ ュー ル を まとめ 
io。。 て リン ク す る こと が で きる と いう 点 で す . こう し た 使い か た は , こき 
= れ ま で の 開発 パッ ケー ジ で は で き な い 芸当 で す . 1 夫 
本 章 で は 各 言語 の 基本 的 な 使い か た と , 複数 の 言語 組み合わせ 
た XBBDDD らし い プ ログ ラミ ング の た め の テ クニ ッ ク を 紹介 
する こと に し まし ょ う . 、 








5.| プロ グラ ミン ク グ の 基礎 知識 


5. ] プロ グラ ミン グ の 基礎 知 識 


これ まで の プロ グラ ミン グ 言 語 で は ,。 せい ぜ い ア セン ブラ で 書い た 関数 を 呼び 出し た りす る と 

ョ っ た 程度 の 使い 分 けし か で きま せん で し た . し か し , C Copmpiler PRO-68k で は , 1 つの プロ 

ラム を , C 言語. アセ ン ブ ラ , 双 -BASIC と いう 3 つの 言語 を 使い , 関数 単位 で 使い 分 ける こと 
が で きる よう に な っ て いる の で す . 

その 上 , それ ぞ れ の 関数 を ライ ブラ リ 化 する の は も ちろ ん の こと , X-BASIC の 外部 関数 に する 

と も で きま す ( 図 5.1). 





従来 の 処理 系 で の 組合 せ 


アド レス を 指定 し て 
usr 関 数 ,EXEC な ど ) 
利用 する 

ーー マッ > 


C で は アセ ンプ ラ 
の プロ グラ ム を 関 
数 と し て 利用 する 
きど が で きる 


BASIC 


マシ ン 語 アセ ンプ ブラ で 


作っ た 関数 


1 -68k で の 組合 せ BASTOC で コン バー ト 
C Compiler PRO-68 組合 Eo の も 


外部 関数 と し て 登録 
すれ ば , X-BASIC の 関 
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、 お 互い に 関数 と 0 
数 と し て 利用 で きる し て 利用 で きる 
X-BASIC の 
X-BASIC ペーーー つ | | フロ グラ ム アセ ンプ ブラ の プロ 
た グラ ム も 関数 と し 
ベーーーー つ ? プロ グラ ム て 利用 で きる 
アセ ンプ ラ の 
?『 プロ グラ ム ? |? | 
外部 関数 に 変換 アセ ンプ ラ の アセ ンプ ブラ の 
プロ グラ ム プロ グラ ム 


図 選 .1 従来 の 組合 わせ と C Compiler PHD-B8k で の 組合 わせ 


5.1.1 コン パイ ラド ライ バ の 活用 

一 言 で コン パイ ル と いっ て も , いく つか の 手順 を 踏ま な けれ ば な り ま せん . その 過程 に は, い 
くつ か の プロ グラ ム が か か わっ て いま す ( 図 5.2)、 しかし, ちょ っ と し た プロ グラ ム を コン パイ ル 
する た びに , これ ら の 手順 を コマ ンド ライ ン で いち いち 入力 し て いた の で は 非 効 率 的 で す の で 。 
な ん と か これ を 自動 化し た いも の で す . それ が ,。 コン パイ ラド ライ バ と いう ツー ル な の で ます. 
コン パイ ラド ライ バ は , ファ イル 名 の 拡張 子 に よっ て , その ファ イル が どの よう な プロ グラ ミ 
ング 言語 で 書か れん て いる プロ グラ ム な の か を 判断 し て 作業 内 容 を 決定 し ます の で 。 ユー ザー は 
行 フ ァイル が で きる まで の 過程 を ほとん ど 意 識 す る こと な く 作 業 を すす め る こと が で きま す 


油 
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X-BASIC の プロ グラ ム 


BASTOC コ ン バ ー タ (BC. X) 
C の プロ グラ ム 


アセ ンプ ブラ の プロ グラ ム 


〇 
MI 


オグ : グ ル 
ライ ブラ リ や 2 
ファ イル 


リン カ (LK. X) 


2AH oeE | 
CC1.X CC2.X 








実行 ファ イル ( . X 形 式 ) 


巳 己 一 般 的 な コン パイ ル 作 業 の 手順 


た と えば , test.bas と いう X-BASIC で 書か ん た プロ グラ ム を コン パイ ル す る 場合 に は , 


cc test.bas 
と 入力 する だ け で OK で す . 
また , X-BASIC と C 言語 と いう よう に 異な っ た プロ グラ ミン グ 言 語 で 書か て ん て いた と し て も 
考 え か た は まっ た く 同 じ で す . test.bas。foo.c。bar.c と いう 3 つの ソー スプ ログ ラム に 分 れ て い 
て も , コン パイ ラド ライ バ を 次 の よう に 起動 すれ ば 一 括 し て 処理 し , 最終 的 に prog.x と いう 実行 
ファ イル が 作ら れ ま す ( 図 5.3). 


X-BASIC の プロ グラ ム 
lgASroc コ ン バ ー タ 
sec ル ee 
ーー シー I 1 
し es リト ws ww 





ンー を や 
実行 可能 ファ イル 


図 B.3G コン パイ ラド ライ バ を 使っ た コン パイ ル の 流れ 
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5.| プロ グラ ミン グ の 基礎 知識 


cc グ Zprog.x test.bas foo.c bar.c 


また , コン パイ ラド ライ バ に は 表 5.1 の よう な いく つか の オプ ショ ン を 指定 する こと が で きま 
テ 頭 


ライ ブラ リフ ァイル の パス 指定 コン パイ ラド ライ バ を ジミ レニ ボ ある 
C の ソー ス に 変換 し て 終了 DOSLIB.A と IOCSLIB.A の 使用 フラ グ 
コメ ント 行 削除 の 禁止 実行 ファ イル の ファ イル 名 指定 

識別 子 を 定義 する 引数 情報 の 出力 

エラ ー フ ァイル の 作成 BSS 領域 の サイ ズ 報 告 

CASH.X の 使用 禁止 STRING 領域 の サイ ズ 報 告 

アセ ン ブ ル リ スト の 作成 DATA 領域 の サイ ズ 報 告 

イン ダイ レク ト フ ァイル 指定 式 解析 の スタ ッ ク サ イズ の 設定 

イン クル ー ド ファ イル の パス 指定 ソー ス フ ァ イル へ の テキ スト の 出力 

マッ プ フ ァ イ ル を 出力 ヒー プ サ イ ズ の 指定 

ソー ス フ ァ イル を 出力 i 識別 子 の 長 さ の 指定 (8 ミ num ミ 32) 
オブジェ クト を 作成 し て 終了 j case 数 の 指定 (256 く num <1000) 

タイ ム ス タ ン プ の 判定 スタ ッ ク チ ェ ッ ク ・ コ ー ド の 出力 

オプ ティ マイ ザ を 実行 する ライ ン ナ ン バ の 出力 

プリ プロ セッ サ の 出力 ファ イル を 作成 構造 体 の メン バ 数 の 指定 (128 ミ num ミ 1024) 
オブ ジェ クト ファ イル の 出力 ドラ イブ 指定 識別 子 の 登録 数 の 指定 (400 ミ =num ミ 65534) 
コン パイ ラド ライ バ の 実行 経過 を 報告 する 識別 子 の クロ スリ ファ レン ス 出 力 

アセ ンプ ブラ の ソー ス に 変換 し て 終了 レジ スタ 情報 の 出力 

作業 ディ スク の 指定 スタ ッ ク サ イズ の 指定 

識別 子 を 未定 義 に する オー ト 変 数 の サイ ズ チ ェ ッ ク 

プリ プロ セッ サ の 出力 を 表示 構文 チェ ッ ク レ ベル の 設定 (0 ミ num ミ 3) 
BASLIB.A の 使用 フラ グ 













































































表 5.1 コン パイ ラド ライ バ の オプ ショ ン 


ら .1. 己 BASTOO コン バー タ で プロ グラ ミン グ 

X-BASIC を 使っ た プロ グラ ミン グ に つい て は , 3 章 で 詳し く 扱 っ て いま す の で 。 こ こ で は , 
BASTOC コン バー タ を 使っ て C 言 語 の プロ グラ ム に 変換 する と いう と ころ か ら , 話 を 始め る こ 
と だ に ゼ ま 1 レ まき 』 


画 ASTOC コン バー タ フ つの 問題 点 


て いれ ば , それ を 回 避 す る こと が で きま すか ら , BASTOC コン バー タ で 変換 する こと が あら か じ 
め わ か っ て いる の で あれ ば , それ を 考慮 に 入れ て プロ グラ ム し て お く と よい で し ょ う 。 し か し 。 
どう し て も コン パイ ル で き な い プロ グラ ム は ,C 言語 の ソー スプ ログ ラム の レベ ル で デポ ボッ グ を 
し な けれ ば な り ま せん . 
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5 章 X68000 らし い プ ログ ラミ ング 
それ で は , BASTOC コン バー タ に 問題 点 に つい て か ん た ん に まとめ て お く こ と に し まし ょ う . 


【 規 則 1 】 ローカル 変数 の サイ ズ の 限界 に 注意 

X-C で は , 1 つの 関数 内 で 確保 で きる ロー カル 変数 の サイ ズ は 32K バイ ト 以 内 で な けれ ば な り 
ませ ん . それ を 超え る よう な 大 きい 配列 を 扱う 場合 は グロ ー バ ル 変 数 と し て 宣言 し な けれ ば な り 
ませ あ 。 


【 規 則 2 】gusub-return は 関数 に 変換 され る 
X-BASIC の gosub-return と いう 構文 は C 言 語 の 関数 に 変換 され る こと に 注意 し て くだ さ 
い . た だ し , X-BASIC で は 関数 を 記述 で きま すか ら , あえ て gosub を 使う 必要 は な いで し ょ う . 


【 規 則 3 】goto の 飛び 先 は 同一 の 関数 内 で な けれ ば な ら な い 
C 言語 で は , goto で 他 の 関数 へ 分 岐 す る こと は で きま せん . 規則 2 の と お り , gosub--return は 
関数 に 変換 され ます の で , goto を 使っ て 他 の サブ ルー チン へ 分 岐 す る こと も で きま せん . 


【 規 則 4 】 変 換 さ れ た C 言語 の プロ グラ ム は , その まま で は ライ ブラ リ 化 で き な い 

一 般 に , BASTOC コン バー タ で 変換 する と main 関数 が 付加 され る の で , その まま で は ライ ブ 
ラリ 化 で きま せん . た だ し , プロ グラ ム 全 体 の 先頭 を “func 関数 名 ” か ら 始 め れ ば 問題 あり ませ 
ん . 


【 規 則 5 】 関数 の 仕様 の 相違 に 気 を つけ る 

X-BASIC 上 で の 外部 関数 の 仕様 と . BASTOC コン バー タ で 変換 し た あと に 使わ れる BAS- 
LIB 中 の 関数 の 仕様 が , 異な っ て いる 場合 が あり ます . この 場合 は C 言語 の ソー スレ ベル で 修正 
する し か あり ませ ん . 


【 規 則 6 】 \ い ヽ ) の 扱い の 相違 に 気 を つけ る 

C 言語 で は ^ 学 ? が 特殊 記号 と し て 扱わ れる こと は いう まで も あり ませ ん ですから, BASTOC 
コン バー タ を 使っ た 場合 も この 特殊 文字 に 対す る 処理 が 必要 に な り ま す . し か し , BASTOC コン 
バー タ は 。 文字 列 中 の ^? に 対す る 変換 は し ます が , 文字 定数 と し て 現れ た 場合 の 処理 は 行い ま 
せん . “” の 文字 定数 を 必要 と する 場合 は , 直接 ASCII コー ド を 書か な けれ ば な り ま せん . 


【 規 則 7 】 変 数 の 型 の 違い に 気 を つけ る 

int 型 の 引数 を 必要 と する 関数 に float 型 の デー タ を 渡し た いと き は , int 関数 を 使っ て 明示 的 
に 型 変換 を する 必要 が あり ます . int 型 の デー タ を float 型 の 引数 と し て 流す に は , float 型 の デー 
タ に 1.0 を か ける か , いっ た ん float 型 の 変数 に 代入 し て か ら 渡 すか し な けれ ば な り ま せん . 
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5.| プロ グラ ミン グ の 基礎 知識 


グラ フィ ッ ク エ ディ タ の 製作 

それ で は , BASTOC コン バー タ の 性 能 を 試す サン プル プロ グラ ム と し て , グラ フィ ッ ク エ ディ 
タ を 作っ て み ま す . グ ラフ ィ ッ ク を 扱う プロ グラ ム は ,C 言語 で 扱う に は ちょ っ と や っ か いで すか 
ら 。 X-BASIC で プロ グラ ム し て , 完成 し た ら コ ン パ イル し て し まう , と いう 方 法 が 最適 だ と いえ 
時 6 し よう 。 

この プロ グラ ム で は , エディ タ の 機能 を 選択 する メニ ュー の 表示 に , 3 章 の ADPCM エディ タ 
で 使っ た 関数 と 同じ も の (initmenu 関数 と mennu 関数 ) を 流用 する こと に し ます . initmenu 関数 
が メニ ュー と し て 表示 され る 文字 列 の 初期 化 を , mennu 関数 が 実際 に メニ ュー を 選ぶ 際 の 処理 を 
行っ て いま す 

まず 。 リ スト 5.1 の ソー スプ ログ ラム を “gedb.bas” と いう 名 前 で 入力 し ,。 コン パイ ラド ライ 
バ で 次 の よう に コン パイ ル し ます . 


cc グ O gedb.bas 


ノー = 


コン パイ ラド ライ バ に つけ て いる バン 07 と いう オプ ショ ン は , コン パイ ル 時 に 最適 化 を 行う と 
いう オプ ショ ン で , オプ ショ ン を つけ な け て も と くに 問題 は あり ませ ん . 図 5.4 に , 実際 に 行わ 
れ て いる 作業 の 流れ を 図示 し て お きま す . 


BASTOC コ ン バ ー タ 








gedb . bas ? 








gedb .c 





C コ ン パ イラ 





gedb . s 





アセ ンプ ブラ 

















gedb .o 














5.4 グラ フィ ッ ク エ ディ タ が コン パイ ル さ れる まで の 流れ 


コン パイ ル 時 の コマ ンド ライ ン は 入力 する の が 面倒 で すか ら 。 た と え を 1 行 で あっ て も バッ チ 


ファ イル に し て お く と 便利 で す 。 あと で アッ プ デ ー ト を する 場合 も 参考 に な り ま すか ら 。 ソ ー ス 
ファ イル と と も に 保存 し て お く と よい で し ょ う 。 
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5 章 X68000 らし い プ ログ ラミ ング 


リス ト 巳 . ] グラ フィ ッ ク エ ディ タ (gedb.Dag) 





1: /* 

2: /* temp. or global var. def. 

3: /* 

5 | ee を ま する 間 の ツ ロ ー 交 

6: int EndFlag = 

7: int cl = 65535, bcl = 9 

8: int SymHM, SymVM, SymFont, SymAng 

9: str SymStr[256] 

19: int MScross = MSpoint = 

11: int OldMSX, 0ldMSY /* old mouse pointer for cross cursor 

12: str fname 

13: int BufX, BufY 

14: int AutoUp = 9 /* AutoUpdate mode (now can't support) 

15: float Buffer(65535) 

16: float tmpl(127), tmp2(127), tmp3(127), tmp4(127), tmp5(127), tmp6(127) 
17: str Menul[256] = “Item FreeHand Line Lines Box Circle Oval BoxFill Pai 


nt Symbol & Mode Color BackColor Free CursorMode PointDisp UndoMode & 
Edit Undo Update Cut Copy Paste Erase & File New Img_Load Img_Save Loa 
d Save Quit" 

18: str Menu2[256] = "Item FreeHand Line Lines Box Circle Oval BoxFill Pai 
nt Symbol & Mode Color BackColor Hard CursorMode PointDisp UndoMode & 
Edit Undo Update Cut Copy Paste Erase & File New Img_Load Img_Save Loa 


d Save Quit" 
19: int MenuType 
29: int xy, left, right 
21: jint i 
22: /* 
23: screen 1, 3, 1, 1 
24: console 9, 32, 9 
25: 0 : moOuse(4) ho 
26: msarea(9, 9 511, 511 
27: MenuType = 1 la 
28: initmenu(Menu1) 
29: error off 
3: scron() 
13 gTaph() ECHO グラ フィ ッ ク エ ディ タ を 制御 する 関数 


32: scroff() 
33: mouse(2) 








その 他 の グロ ー 
バル 変数 





34: vpage(1) | CO 
35: cls ) 
36: end 
37: /* 
38: func graph() 
39: SymHM = 1 
49: SymVM = 1 
41: EndFlag = 9 
42: mode = 11 /* FreeHand mode 
43: mSpoS(x, y) 
44: initMS(x, Y) ine7es クロ ス ・ マ ウス カー ソル な ど を 表示 する 関数 
45: while EndFlag = 9 /* not End 
46: msstat(x, y, left, right) 
47: mspoS(x, y) 
48: cursorMS(x, y) YES6KeEGS222 クロ ス ・ マ ウス カー ソル な ど を 移動 させ る 関数 
49: ifright then { 
5 clearMS(O) ………… 普通 の マウ スカ ー ソ ル に 戻す 関数 
51: 1 = menu(64) ……… メニ ュー を 表示 する 関数 
52: initMS(x, y) 
53: mode = doMenu(i, mode) …………ー 選択 し た メニ ュー を 実行 する 関数 
54: }) else if left then { 
55: dolt(x。 y,」 mode) 0 選択 し た モー ド に 従っ た 処理 を する 関数 
56: } 
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5.1 


プロ グラ ミン グ の 基礎 知識 








57: endwhile 
58: endfunc 

59: /* 

69: func doMenu(newmode, mode) 


/* Symbol (get multiple, font type, angle) 


do selected menu, and change mode 


in Mode Menu 


in Edit Menu 


in File Menu 





61: Switch newmode 

62: case 19 

63: qSymbol() 

64: mode = newmode  /* change mode 
65: break 

66: case 21 /* Color 

67: doGetcl() 

66: break 

69: case 22 /* BackColor 

79: doGetbcl() 

71: break 

72: case 23 /* Free <-> Hard 

73: doChange() 

74: break 

75: case 24 /* change Cursor mode 
76: doCuChange() 

"が 角 break 

78: case 25 /* change print mode 
79: doPrChange() 

89: break 

81: case 26 /* change Update mode 
82: doUpChange() 

83: break 

84: case 31 /* Undo 

85: doUndo() 

86: break 

87: case 32 /* Update 

88: doUpdate() 

89: break 

99: case 41 /* New(Clear) 

91: doWipe() 

92: break 

93: case 42 /* Load by img_load() 
94: dolmgLoad() 

95: break 

96: case 43 /* Save by img_save() 
97: dolmgSave() 

98: break 

99: case 44 /* Load by gload() 

1 盟 : doGload() 

191: break 

192: case 45 /* Save by gsave() 
193: doGsave() 

14: break 

195: case 46 /* Quit 

196: qQuit(newmode) 

197: break 

198: case /* Not Select 

199: break 

119: default /* and Others... 

町 mode = newmode /* chang mode 
2 バ break 

113: endswitch 

114: return(mode) 

115: endfunc 

116: /* 

117: func qSymbol() 

118: scroff() 

119: reprintqSym1() : reprintqSym2() 
129: reprintqSym3() : reprintqSym4() 


| 


選択 し た メニ ュー に 従っ て モー 
ド の 変更 な どの 処理 を 行う 
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121: repeat 

122: msstat(x, y, left, right) : mspos(x, y) 

123: if left <> then { 

124: x =x/8:y=y/16 

125: ify=2then( 

126: if (29 <= x) and (x <= 34) then { 

127: SymHM = SymHM - 1 

128: ) else if (38 <= x) and (x <= 43) then { 
129: SymHM = SymHM+ 1 

139: ) 

131: SymHM = (SymHM + 254) mod 255+ 1 

199: reprintqSym1() 

133: ) else ify= 4 then { 

134: if (29 <= x) and (x <= 34) then { 

185: SymVM = SymVM - 1 

136: ) else if (38 <= x) and (x <= 43) then { 
137: SymVM = SymVM + 1 

138: } 

139: SymVM = (SymVM + 254) mod 255 + 1 

149: reprintqSym2() 

141: ) else if (6 <= y) and (y <= 8) then { 

142: SymFont =y-6 : reprintqSym3() 

143: }) else if (19 <= y) and (y <= 13) then { 
144: SymAng = y - 19 : reprintqSym4() 

145: } 

146: if ((33 <= x) and (x <= 39)) or (6 <= y) then 【 
147: while left <> 9 

148: msstat(x, y, left, right) 

149: endwhile 

159: } 

2 四 } 

152: until right <> 

153: SymStr = doStrInput(9, 18, "String 
154: scron() 

155: endfunc 

156: /* 

157: func reprintqSym1() 

158: locate 9 2 


"SymStr) 


159: print using "Horizontal multiple of Symbol << <-## -> >>":SymHM 


169: endfunc 

161: /* 

162: func reprintqSym2() 
163: locate 9, 4 
164: print using "Vertical multiple of Symbol 
165: endfunc 

166: /* 

167: func reprintqSym3() 

168: locate 9, 6 : print "Font” 
169: locate 8, 6 : print "9 ..…. 
179: locate 8, 7 : print "1 ... 
171: locate 8, 8 : print "2 ... 
72: color 11 

173: Switch SymFont 
174: case 

175: locate 8, 6 
176: print "9 .… 
177: break 

178: case 1 

179: locate 8, 7 
189: DP 
181: break 

182: case 2 

183: locate 8, 8 
184: print "2 ... 


6 * 12" 
8 * 16" 
12 * 24" 


6 * 12" 


8* 16" 


12 * 24" 





<< く <ー 折 ー> >>「)SymVM 


それ ら の デー タ を 変更 する 
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185: 
186: 
187: 
188: 


189 
199 
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break 
endswitch 
color 3 
endfunc 
ん 3 
・ func reprintqSym4() 











シン ボル 表示 用 の デー タ を そ 
れ ぞ れ 画 面 に 表示 する 関数 群 














191: locate 4 19: print "Angle" 

192: locate 8, 18 : print 7.…. の 

193: locate 8, 11 : print "1 .… 99" 

194: locate 8, 12 : print "2 .…. 189" 

195: locate 8, 13 : print "3 .… 279" 

96: color 11 

1 SMA switch SymAng 

198: case 9 

199: locate 8, 19 

2 盟 : Print す ! 咽 

291: break 

292: case 1 

293: locate 8, 11 

294: DP 9 の 

295: break 

296: case 2 

297: locate 8, 12 

298: り UN 02 18 

299: break 

210: case 3 

0 暫 locate 8, 13 

2 の 2 print "3 .…. 279" 

213: break 

214: endswitch 

215: color 3 

216: endfunc 

217: /* 

218: func doGetcl() 

219: scroff() 

229: cl = getcl(cl) 描画 する 際 の 色 コ ー ド 

221: scron() を 選択 する 関数 

222: endfunc 

223: /* 

224: func doGetbcl() 

225: scroff() ai 

226: bol= getolGbol) る 

227: scron() 

228: endfunc 

229: /* 

239: func getcl(cl) 

231 く repeat ( C ) 

232: cl = doIntInput(9, 2, "What Color (-65535)", cl 

233: until (@ <= cl) and (cl <= 65535) 人 

234: return(cl) 

235: endfunc 

236: /* 

237: func doChange() 

238: if MenuType = 1 then { 

239: MenuType = 2 

2 6 0 江 天 する 際 に 定規 を 使う か 使わ 
6 2 

242: MenuType = 1 co 

243: initmenu(Menu1) 

244: } 

245: endfunc 

246: /* 

247: func doCuChange() 

248: scroff() 
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249: 
259: 
25 ド 5 
252: 
253: 
254: 
255: 
256: 
257: 
258: 
259: 
269: 
261: 
262: 
263: 
264: 
265: 
266: 
267: 
268: 
269: 
279: 
271: 
272: 
273: 
274: 
275: 
276: 
277: 
278: 
279: 
28: 
281: 
282: 
283: 
284: 
285: 
286: 
287: 
288: 
289: 
299: 
291: 
292: 
293: 
294: 
295: 
296・ 
297・ 
298: 
299: 
3 角 : 
391: 
32: 
393: 
394: 
395: 
396: 
397: 
398: 
399: 
31: 
311: 
312: 
313: 


MScross = not MScross ! マウ スカ ー ソ ル の 形状 を 変更 する 関数 
scron() 
endfunc 
/* 
func doPrChange() 
scroff() 
MSpoint = not MSpoint { マウ ス の 座標 を 表示 する か し な いか を 決め る 関数 
scron() 
endfunc 
/* 
func doUpChange() 
beep 
endfunc 
/* 
func doUndo() 
beep p .288 か ら 紹介 する 強化 販 グ ラフ ィ ッ クエ ディ タ て で 追加 され る 関数 の 予約 領域 
endfunc 
/* 
func doUpdate() 
beep 
endfunc 
7 
func MA | 
scroff( oe 、 
if sure() then fi 8511 11 DD 
scron() 
endfunc 
/* 
func dolmgLoad() 
int x,y 
str fname 
scroff() 
fname = getFnane() 
scron( ) 
clearMS() 
if img_load(fname) <> 9 then beep 
mSpoS(x, y) 
initMS(x, y) 
endfunc 
『 ょ 
func dolmgSave() 
int x,y 
str fname 
scroff() 


fname = getFname() | mg_save 関数 を 使っ て , 1 画面 の 


scron() | デー タ を セー プ す る 
clearMS() 3 


if img_save(fname) <> 9 then beep 
mSpos(x, y) 
initMS(x, y) 

endfunc 

/* 

func doGload() 
beep 

endfunc 

/* 

func doGsave() 
beep 

endfunc 

/* 

func qQuit(mode) | 
scroff() | 

if Sure() then EndFlag = 1 aa 

! 











img_load 関 数 を 使っ て , 1 画面 の 
デー タ を ロー ド す る 関数 





| p .288 か ら 紹 介する 強化 版 グラ フィ ッ ク エディ タ で 
追加 され る 関数 の 予約 誤 域 





scron() 
endfunc 
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314: /* 
315: func Sure() 
316: int rv 
317: locate 多 2 : print "Sure 7? 
318: locate 14, 2 : print "/" 
319: repeat 
32: msstat(x, y, left, right) 
321: mSpos(x, y) 
822: =x/8:y=y/16 
323: if (y = 2) and (19 <= x) and (x <= 13) then ( 
324: locate 19, 2 : print "Yes” 
325: color 11 
326: locate 16,2 : print "No" 
327: color 3 
328: } else if (y = 2) and (15 <= x) and (x <= 18) then { 
329: locate 16, 2 : print "No" 
33: color 11 再 確認 を 求め る 関数 
331: locate 19,2 : print "Yes” 
332: color 3 
333: }) else { 
334: color 11 
335: locate 19.2 : print "Yes” 
336: locate 16,2 : print "No" 
337: color 3 
338: 
339: until left <> 9 
34: if (y = 2) and (19 <= x) and (x <= 13) then rv = 1 else rv =B 
341: repeat 
342: msstat(x, y, left, right) 
343: until left = 9 
344: return(rv) 
345: endfunc 
346: /* 
347: func str getFname() | 
348・ fname = doStrInput(9, 2, "What file name", fname) ファ イル を の 用 を 秒 め る 開 
349: return(fname) 
359: endfunc 
951: /* 
352: func doIntInput(x, y, mesi str, ans) 
353: str temp 
354: locate x,y 
ei 数 値 を 入力 する た め の 関 数 . リ ター ン だ け な ら 」 
357: if temp = ".” then return(-1) 7 で 1 で Pt 
358: if temp = "" then return(ans) 
359: return(val(temp)) | 
369: endfunc 
361: /* 
362: func str doStrInput(x, y, mesi str, ansi str) 、 
363: str temp 
364: locate x,y 
365: print mes | 廊 字 列 を 入力 する た め の 関 数 、 リ ター ン だ け 
366: input temp な ら , 以前 入力 し た 文字 列 を 返す 
367: if temp = ". then return("") ピリ オド を 入力 し た ら 空 の 文字 列 を 返す 
368: if temp = ” then return(ans) | 
369: return(temp) 
379: endfunc 
371: /* 
372: func doIt(x, y, mode) 
373: if AutoUp <> 9 then doUpdate() 
374: Switch mode 
375: case 11 7* Free Hand 
376: drawFreeHand(x, y) 
377: break 








ト っ 
し J 
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378: case 12 /* Line 

379: drawLine(x, ゞ ) 

389: break 

381: case 13 /* Lines 

382: drawLines(x, y) 

383: break 

384: case 14 /* Box 

385: drawBox(x, y) 

386: break 

387: case 15 /* Circle 

388: drawCircle(x, y) 

389: break 

399: case 16 /* Oval 

391: drawOval(x, y) 

392: break 

393: case 17 /* Box Fill 

394: drawBoxFill(x, y) 

395: break 選択 され た モー ド に 従っ て 処理 を 行なう 関数 
396: case 18 /* Paint 

397: doPaint(x, y) 

398: break 

399: case 19 /* Symbol 

4 外 : doSymbol(x, y) 

491: break 

492: case 33 /* Cut in Edit Menu 
493: Cut(x, y) 

494: break 

495: case 34 /* Copy 

496: Copy(x, ゞ ) 

497: break 

498: case 35 /* Paste 

499: Paste(x, y) 

410: break 

411: case 36 /* Erase 

412: Erase(x, y) 

413: break 

414: default 

415: print "progTam erTTOT. mode no iS "jmode 
416: break 

417: endswitch 

418: endfunc 

419: /* 

429: func drawFreeHand(oldx, oldy) 

421: repeat 

422: msstat(x, y, left, right) 

423: mSpos(x, y) 

424: clearMS() 

425: HISC6UO UI の 7 1 
426: initMNS(x, y ゞ ) 

427: oldx = x : oldy = y 

428: until left = 9 

429: endfunc 

439: /* 

431: func drawLine(orgx, orgy) 

432: repeat 

433: msstat(x, y, left, right) 

434: mSpoS(X, y) 

435: if MenuType = 2 then toHard(orgx, orgy) 
436: cursorMS(x, y) 線 分 を 描く 関数 
437: until left = 5 
438: clearMS() 

439: line(orgx, orgy, X, yY, Cl) 

449: initMS(x, y) 





441: endfunc 
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442: /* 

443: func drawLines(orgx, orgy) 

444: repeat 

445: repeat 

446: msstat(x, y, left, right) 

447: mspoS(x, y) 

448: if MenuType = 2 then toHard(orgx, orgy) 

449: cursorMS(x,y) 

45: until (left = の or (right <> の 

451: ifright = wt { 

452: clearMS NN. の 

453: line(orgx, orgy, X, y, Cl) 連続 し た 線 を 描く 関数 

454: initMS(x, y) 

455: OTgX = ニ X : OFTgV ニ Y 

456: repeat 

457: msstat(x, y, left, right) 

458: mSpoS(x, y) 

459: if MenuType = 2 then toHard(orgx, orgy) 

469: cursorMS(x,y) 

461: until (left < の or (right <> の 

462: } 

463: until right <> 9 

464: endfunc 

465: /* 

466: func drawBox(orgx, orgy) 

467: getNewXY(orgx, orgy) | 

468: clearMS() 2 

469: box(orgx, orgy, X, Y, CI) ae 

479: initMS(x, y) 

471: endfunc 

472: /* 

473: func drawCircle(orgx, orgy) 

474: int dx, dy 

475: getNewXY3(orgx, orgy) 

476: clearMS() 中 心 と すみ を 指定 し て 円 を 描く 関数 

477: doCircle(orgx, orgy, X - OrgX, 》 - OTgY, CI) 

478: initMS(x, y) 

479: endfunc 

48: /* 

481: func draw0val(orgx, orgy) 

482: int dx, dy 

483: getNewXY(orgx, orgy) 

484: clearMS() | 2 隔 を 指定 し て 

485: doCircle((x + orgx) / 2, (y + orgy) / 2, (x - orgx) / 2, (y - orgy | 円 を 描く 関数 
) / 2, cl) 


486: initMS(x, y) 

487: endfunc 

488: /* ] 
489: func drawBoxFill(orgx, orgy) 
499: PAN orgy) | 
491: clearMS し 深 り つぶ し た 箱 

492: fill(orgx,。 orgy, X, y, cl) | 9 
493: initMS(x, y) 

494: endfunc 

495: /* 

496: func doPaint(x, y) 

497: clearMS() ま NN 
498: paint(x。 y, ol) | 四 四 を 洲 り つぶす 関数 
499: initMSx, y) | 

5 角 : endfunc / 

51: /* 

592: func doSymbol(orgx, orgy) 

593: int dx, dy, tmp 

594: switch SymFont 
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595: case /* 6* 12 
596: dx = SymHM * strlen(SymStr) x 6 
597: dy = SymVN* 12 

598: break 

599: case 1 /* 8* 16 
519: dx = SymHM * strlen(SymStr) * 8 
511: dy = SymVM* 16 

512: break 

513: case 2 /* 12 * 24 
514: dx = SymHM * strlen(SymStr) * 12 
515: dy = SymVM* 24 

516: break 

517: endswitch 

518: Switch SymAng 

519: caSe 1 

529: tmp = dx 

521: dx = dy 

522: dy = -tmp 

523: break 

524: case 2 

525: dx = -dx 

526: dy = -dy 

527* break 

528: case 3 

529: tmp = dx 

53: dx = -dy 

531: dy = tmp 

532: break 

533: endswitch 

534: getNewXY2(orgx, orgy, dx, dy) 
535: clearMS() 

536: symbol(x, y, SymStr, SymHM, 
537: initMS(x, y) 

538: endfunc 

539: /* 

549: func Cut(orgx, orgy) 

541: getNewXY(orgx, orgy) 

542: clearMS() 

543: getBuf(orgx, orgy, X, Y) 

544: fill(orgx, orgy, x, y, bcl) 
545: initMS(x, y) 

546: BufX = abs(x - orgx) : BufY = 
547: endfunc 

548: /* 

549: func Copy(orgx, orgy) 

559: getNewXY(orgx, orgy) 

551: clearMS() 

552: getBuf(orgx, orgy, Xx, Y) 

553: initMS(x, y) 

554: BufX = abs(x - orgx) : BufY = 
555: endfunc 

556: /* 

557: func Paste(orgx, orgy) 

558: getNewXY2(orgx, orgy, BufX, BufY) 
559: clearMS() 

568: putBuf(x, y) 

561: initMS(x, y) 

562: endfunc 

563: /* 

564: func getBuf(x1, y1, x2, y2) 

565: get(x1, y1, x2, y2, Buffer) 
566: endfunc 

567: /* 

568: func putBuf(x, y) 

569: put(x,。 y, x+ BufX。 y + BufY, Buffer) | 


シン ボル を 表示 する 関数 


SymVM, SymFont, cl, SymAng) 





画面 上 の 知 形 領域 を カッ ト す る 関数 


abs(y - orgy) 


画面 上 の 知 形 領域 を コピー す る 関数 


abs(y - orgy) 








カッ ト , コピ ー し た 画面 デー タ を 
隊 6 


| 5 アー タク を WW り At 間 


| 庫 デー タ を 表示 する 関数 
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579: 
571: 
572: 
573: 
574: 
575: 
576: 
577: 
578: 
579: 
589: 
581: 
582: 
583: 
584: 
585: 
586: 
587: 
588: 
589: 
599: 
591: 
592: 
593: 
594: 
595: 
596: 
597: 
598: 
599: 
699: 
691: 
692: 
693: 
694: 
695: 
696: 
697: 
698: 
699: 
619: 
611: 
612: 
613: 
614: 
615: 
616: 
617: 
618: 
619: 
629: 
621: 
622: 
623: 
624: 


625: 
626: 
627: 
628: 
629: 
639: 
631: 
632: 
633: 


endfunc 

/* 

func Erase(orgx, orgy) 
getNewXY(orgx, orgy) 
clearMS() 
fill(orgx, orgy, X, サ , 1 
initMS(x, y) 

endfunc ) 

/* 

func toHard(oldx, oldy) 
dx = abs(x - oldx) : dy = abs(y - oldy) 
ifdx*3/4>dythen 【 


y = oldy 
) else if dy > dx* 3 then { 
x = oldx 


) else if dx * 1.5# > dy then 5 
y=oldy+ dx * 1.5# * sgn(y - oldy) 
) else { 
x =oldx+dy*2/3*sgn(x - oldx) 


endfunc 
/* 
/* guide box for box, boxfill, oval 
/* 
func getNewXY(orgx, orgy) 
int oldx, oldy 
mSpos(x, y) 
if MenuType = 2 then toHard(orgx, orgy) 
clearMS() 
showXBox(orgx, orgy, X, \, CI) 
initMS(x, y) 
oldx =x : oldy = y 


Tepeat 
msstat(x, y, left, right) 
mSpos(x, y) 


if MenuType = 2 then toHard(orgx, orgy) 


if (x <> oldx) or (y <> oldy) then { 
clearMS() 


clearXBox(orgx, orgy, oldx, oldy, cl) 


showXBox(orgX, orgy,。 X, y。C1) 
initMS(x, y) 
oldx = x : oldy = y 
until left <> -]1 
clearMS() 
clearXBox(orgx, orgy, oldx, oldy, cl) 
initMS(x, y) 
endfunc 
/* 
/* guide box for circle 
/* 
func getNewXY3(orgx, orgy) 
int dx, dy, newdx, newdy 
mSpos(x, y) 
if MenuType = 2 then toHard(orgx, orgy) 
dx = x - orgX : dy =y - orgy 
clearMS() 
showXBox(orgx - dx, orgy - dy, x, y, cl) 
initMS(x, y) 


Tepeat 
msstat(x, y, left, right) 
mSpoS(x, y) 


if MenuType = 2 then toHard(orgx, orgy) 


newdx = xX - orgX : newdy = y - orgy 





知 形 領 域 を 消去 する 関数 


{ 定規 を シミ ュ レ ー ト する 関数 


知 形 領域 を 2 隅 を 指定 する こと 
に よっ て 決定 する 関数 
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634: if (dx <> newdx) or (dy <> newdy) then { 
635: clearMS() | 
636: clearXBox(orgx - dx, orgy - dy, orgx + dx, orgy + dy, cl) 
637: showXBox(orgx - newdx, orgy - newdy, x, y, CI) 
638: initMS(x, y) 
639: dx = newdx : dy = newdy 
64: } 
641: until left <> -1 
642: clearMS() 
643: clearXBox(orgx - dx, orgy - dy, orgx + dx, orgy + dy, cl) 
644: initMS(x, y) 
645: endfunc 
646: /* 
647: /* guide box for paste, symbol 
648: /* 
649: func getNewXY2(orgx, orgy, dx, dy) 
659: int newx, newy 
651: X = OFgX : 》 = OTgy 
652: clearMS() 
653: showXBox(x, y, x + dx, y + dy, cl) 
654: initMS(x, y) 
655: repeat 
656: msstat(newx, newy, left, right) 
657: mspoS(newx, newy) 
658: if (x <> newx) or (y <> newy) then 【 知 形 領 域 の 左上 の 隅 の 
659: clearMS() | 座標 を 決定 する 関数 
668: clearXBox(x, y, x + dx, y + dy, cl) 
661: showXBox(newx, newy, newx + dx, newy + dy, cl) 
662: initMS(newx, newy) 
663: X =newX : y = heWy 
664: ) 
665: until left <> -1 
666: clearMS() 
667: clearXBox(x, y, x + dx, y + dy, cl) 
668: initMS(x, y) 
669: endfunc 
679: /* 
671: func clearXBox(x1, y1, x2, y2, cl) | 
672: putBox(x1, y1, x2, y2) 画面 上 の ガイ ド ボ ッ クス を 消去 する 関数 
673: endfunc | 
674: /* 
675: func showXBox(xl, y1, x2, y2, cl) | 
676: getBox(x1, yl1, x2, y2) 
677: line(x1, yl1, x2, y1, cl) /* for X-BASIC's BUG of box と ああ 8 
678: line(x1, y2, x2, y2, cl) pipe 
679: line(x1, y1, x1, y2, cl) 6 
689: line(x2, y1, x2, y2, cl) 
681: endfunc 
682: /* 
683: func doCircle(x, y, dx, dy, cl) 
684: dx = abs(dx) : dy = abs(dy) 
685: if dy <dx then { 
686: circle(x, y, dx, cl, , , 256 * dy / dx) 
687: ) else if dx =then【 | 中 心 と 短 径 , 長径 色 を 指定 
688: circle(x, y, dy, cl, , , 65535) し て 本 円 を 描く 関数 
689: }) else { 
699: circle(x, y, dy, cl, , , 256 * dy / dx) 
691: 
692: endfunc 
693: /* 
694: func getBox(x1, y1, x2, y2) 
695: if xl < then xl = 
696: if xl > 511 then xl = 511 
697: ify1< thenyl= 
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698: 
699: 
799: 
791: 
792: 
793: 
794: 
795: 


796 


797: 
798: 
799: 
719: 
711: 
712: 
713: 
714: 
715: 
716: 
AM た 
718: 
719: 
729: 
721: 
722: 
723: 
724: 
725: 
726: 
727: 


if yl > 511 then yl = 511 
if x2< thenx2= 
if x2 > 511 then x2 = 511 
ify2< theny2= 
if y2 > 511 then y2 = 511 
get(x1, y1, x2, y1, tmp1) : 
get(x1l, y1, x1, y2, tmp3) : 

endfunc 

2 /* 

func putBox(xl, y1, x2, y2) 
if x1 < then xl = 
if x1 > 511 then x] = 511 
ifyl< thenyl= 
if y]1 > 511 then yl = 511 
ifx2< thenx2= 
if x2 > 511 then x2 = 511 
ify2< theny2= 
if y2 > 511 then y2 = 511 
put(x1, yl1, x2, y1, tmp1) : 
put(x1, y1, x1, y2, tmp3) : 

endfunc 

/* mouse .... 

func initMS(x, y) 


if MScross <> 9then { 
showCrCur(x, y) 
0ldMSX = x : OldMSY = 

} 

if MSpoint <> then 5{ 
locate 55, 1 


728: 


729: 
739: 
731: 
732: 
733: 


endfunc 
/* 
func clearMS() 
if MScross <> 9 then { 


734: 


735: 
736: 
737: 


if MSpoint <> 9then { 
locate 55, 1 
print ”" " 


738: 


739: 
74 久 : 
741: 
742: 
743: 
744: 
745: 
746・ 
747: 
748: 
749: 


endfunc 
/* 
func cursorMS(x, y) 


showCrCur(x, y) 


759: 


751: 
752: 
753: 
754: 
755: 
756: 
757: 
758: 
759: 
760: 
761: 


func clearCrCur(x, y) 
put(x, 時 x, 511, tmp5) 
put(9, y, 511, y, tmp6) 

endfunc 

/ ネ 

func showCrCur(x, y) 
get(x,  x, 511, tmp5) 
get(9, y, 511, y, tmp6) 
line(x, 9 x, 511, 45254) 


Y 


print using " 料 # , 持 ix,y 


clearCrCur(0ldMSX, 0ldMSY) 


if (MScross <> の ) and ((OldMSX <> x) or (OldNSY <> y)) then 【 
clearCrCur(0ldMSX, 01dMSY) 


Y 


} 
if (MSpoint <> 9) and ((OldMSX <> x) or (OldMSY <> y)) then 5 


0ldMSX = x : OldMSY = 
locate 55, 1 
print using "# 料 7:X,y 
endfunc 
/* 





箱 の 線 の 部 分 の 画面 デー タ 
を 退避 する 関数 


get(x1, y2, x2, y2, tmp2) 
get(x2, y1, x2, y2, tmp4) 


箱 の 線 の 部 分 の 画面 デー タ 
を 復帰 する 関数 


put(x1, y2, x2, y2, tmp2) 
put(x2, y1, x2, y2, tmp4) 





{ マウ スカ ー ソ ル を 表示 する 関数 


マウ スカ ー ソ ル を 消去 する 関数 





マウ スカ ー ソ ル を 移動 する 関数 





マウ スカ ー ソ ル を 消去 する 下位 関数 


マウ スカ ー ソ ル を 表示 する 下位 関数 
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762: line(9, y, 511, y, 45254) 
763: endfunc 

764: /* 

765: func scroff() 


766: vpage(9) | ノラ フィ 。 ク 画面 と マウ スカ ー ソ ル を 消去 し て 


767: clearMS() の 4 四 

768: Jouee) PO 

769: endfunc 

779: /* 

771: func scron() 

7 の int x, y 

773: ypage( 1 ) _ 
774: if MScross <> 9 then mouse(2) | グラ フィ ッ ク 画 面 と マウ スカ ー ソ ル を 表示 し て 
775: cls マウ ス の 状態 を 元 に 戻す 関数 
776: mSpoS(x, y) 

777: initMS(x, y) 

778: endfunc 

779: /* 

789: /* menu 

781: /* 

782: func initmenu(messistr) 

783: int ij, j, num, size, tmp 

784: Str mes 

785: i=9:j= 凶 :num=9:size=5 

786: mes = strtok(mess, ” ") 

787: while mes <> "" 

788: ifj>9then【 

789: print "Error in initMenu()” 

799: stop 

791: } 

792: menustr(i, j) = mes 

793: tmp = strlen(mes) 

794: if size <tmp then size = tmp 

795: J)=Jj+ 1 

796: ifnum<jthen num =j 

797: mes = strtok("" うう) 

798: if mes = "8 then { 

799: menustat(i) = 」- 1 

899: 1 = ュ オ 1 

891: ifii>9then{ メニ ュー 関係 
892: print "Error in initMenu()” 初期 化 関数 
893: stop 

894: } 

805: j = 

896: mes = strtok("" うう) 

897: } 


898: endwhile 
) 899: menustat(i) = 」- 1 





818: menustat(11) = size + 4 

811: menustat(12) = i 

812: menustat(13) = num - 1 

813: menustat(14) = 

814: menustat(15) = ! 

815: for ji = to menustat(12) 

816: for j=『to menustat(i) 

817: menustr(i, j) = menustr(i, j) + space$(size - strlen(menus 
tr(i, )))) 

818: next 

819: next 

829: endfunc 

821: /* 

822: func menu(scrxiint) 

823: int cx, cy 

824: int mx, my 
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825: int xy, rgt, Ift, ms 

826: int field, num 

827: int ofield, onum 

828: int = 

829: WS = mouse(3) 

839: if ms =9then mouse(1) 

831: cx =pos : cy = csrlin 

832: mSpoS(mX, my) 

833: setmspos(menustat(14), menustat(15)) 

834: color 11 

835: for i = to menustat(12) 

836: locate ji * menustat(11), 9 

837: print "menustr(Gi。 9 の 7 5 

838: next 

839: print space$(scrx - menustat(11) * (menustat(12) + 1)) 

849: field = menustat(14) / 8 / menustat(11) : num = menustat(15) / 16 

841: ofield = field : onum = num 

842: if field <= menustat(12) then 【 

843: for j= 1] to menustat(field) 

844: locate field * menustat(11) + 2, j 

845: print menustr(field, j) 

846: next 

847: } 

848: repeat 

849: msstat(x, y, rgt, 1ft) 

859: mSpoS(x, y) 

851: field = x / 8 / menustat(11) 

852: num =y/ 16 

853: if field <> ofield then 【 

854: if ofield <= menustat(12) then { 

855: color 3 

856: for j = 1 to menustat(ofield) 

857: locate ofield * menustat(11) + 2, j 

858: print space$(menustat(11) - 4) 

859: next 

86 color 11 

861: ) メニ ュー を 選択 

862: if field <= menustat(12) then 5 する 関数 

863: for j= 1 to menustat(field) 

864: locate field * menustat(11) + 2, j 

865: print menustr(field, j) 

866: next 

867: } 

868: ) else if num <> onum and ofield <= menustat(12) and onum <= m 
enustat(13) then { 

869: locate ofield * menustat(11) + 2, onum 

87: print menustr(ofield, onum) 

871: 

872: if field <= menustat(12) and 9 < num and num <= menustat(13) t 
hen 

873: color 3 

874: locate field * menustat(11) + 2, num 

875: print menustr(field, num) 

876: color 11 

877: ) 

878: ofield = field 

879: OhUm = hUM 

88: until Ift = 

881: eolor 3 

882: i = ofield 

883: for j= 1 to menustat(i) 

884: locate ji * menustat(11) + 2, j 

885: print space$(menustat(11) - 4) 

886: next 
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887: color 3 

888: locate 9 

889: print space$(scrx) 

899: locate cx, cy 

891: mspos(x, y) 

892: menustat(14) = x 

893: menustat(15) = y 

894: setmspoS(mx, my) 

895: if field > menustat(12) then return(9⑳) 
896: ifnum < 1 or menustat(field) < num then return( の 
897: if ms = 9then mouse(2) 

898: return((field + 1) * 19 + num) 





899: endfunc 





一 グラ フィ ッ ク エ ディ タ の 使い ご こ 
ここ で 紹介 レ し た グラ フィ ッ ク エ ディ タ を X-BASIC で 動か す 場 合 は , X-BASIC の 起動 時 に 次 
の よう な オプ ショ ン を つけ て , 変数 領域 を 拡大 し て お か な けれ ば な り ま せん . 


BASIC _F640 


し か し , デ バイ ス ド ラ イ バ が 組み 込ん で ある と 十分 な 領域 を 確保 で き な い か も し れ ま せん の で , 
不 必要 な デバ イス ドラ イ バ は は ず し て お いて くだ さい . 

コン パイ ル さ れ た あと の プロ グラ ム は , Human68k の コマ ンド ライ ン か ら 直 接 実行 きせ る こと 
が で きま す . し か も , プロ グラ ム の 実行 速度 は , X-BASIC で 使っ た と き と 比 べ , か な り 向 上 し て 
いる と 思い ます . 

さて, この グラ フィ ッ ク エ ディ タ の 操作 は , ほとん ど マ ウス で で きる よう に な っ て いま す .。 ま 
ず , 右 ボ タン を 押す こと で メニ ュー を 表示 させ る こと が で きま す 。 マ ウス カー ソル が どこ の 位置 
に あっ て も , 画面 最上 部 の メニ ュー バー に ジャ ンプ する と いう こと に 注目 し て くだ さい . そし て 
ボタ ン を 放さ ず に , 選択 し た い 機能 の と こま で カー ソル を 移動 きせ て ボタ ン を 放す と , その 機能 
が 選択 され ます . 機能 の 選択 と 同時 に . カー ソル は も と の 位置 に 戻り ます . あと は , 左 ボ タン を 
押し な が ら マ ウス を 動か す だ け で 描画 を 行う こと が で きま す . 

た だ し , メニ ュー の な か に は , UndoMode, Undo, Update, Load, Save な ど , 現在 の バー ジョ 
ン で は 使う こと が で き な い 機能 ちあ り ま す . これ ら の 機能 は , 本 章 で いろ いろ な 関数 を つく りな 
が ら 拡 張 し て いく こと に し ます . 

それ で は , メニ ュー の 全体 像 を 図 5.5 に 示し まし ょ う . 主として 4 つの ブロ ッ ク に 分 れ て お り , 
Item で は Box や Circle な どの 描画 の た め の プ リ ミ テ ィ ブ を 選択 し ます . Mode で は 描画 色 と 背 
景色 の 選択 それ と 定規 を 使っ た よう に 縦横 斜め に し か 線 や 円 が 描け な い モ ー ド の 選択 や 。 カー 
ソル の 形状 や 座標 の 表示 の 選択 び で きま す . Edit で は カッ ト や コピ ー, ペー スト の ほか に , 指定 
し た 範囲 の 消去 も で きま す . そし て FHile か ら は 画面 の 消去 や 画像 の イメ ー ジ ロー ド , イメ ー ジ 
セー ブ プ (標準 の IMAGEFNC の な か の img load。img save 関数 を 使っ て いる の で , 拡張 子 が 
GL3 の 画像 ファ イル の ロー ド も で きる ), 終了 が 選択 で きま す . 
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(画面 の 退避 ) 
(画面 の 復帰 ) 










告 由 曲 線 Color Undo 画面 の 消去 





趣 裁 画面 の 消去 


つなが っ た 


Update 」mg-Load 





Back Color 








画面 の ロー ド 





Lines | Free Cut Img-Save - 





Box 。 - Cursor Mode 一 ー Copy ーー 一 ーー Load (画面 の 圧縮 ロー ド ) 





宇 心 と すみ を 
指定 する 円 





Point Disp 一 - Paste Save (画面 の 圧縮 セー ブ ) 















































ーー | Undo Mode Erase ouit 終了 
問 の 中 を 塗る 定規 の 選択 範囲 を 指定 
> 。 消 消す 色 し た 消去 
塗る Paint 描く 色 は りつ け 
文字 の 表示 Symbol (Undo の 選択 ) Es 
マウ ス の 座 準 の 表示 カッ ト 


カー ソル 形状 の 選択 


( ) 内 は 機能 し な い 


図 巳 己 グラ フィ ッ ク エ ディ タ の メニ ュー 一 覧 


叶 : 吾 いつ の "で ブログ ララ ング 
C 言語 は , Hiuman68k の コマ ンド ライ ン か ら 実 行 する よう な コマ ンド や ツー ル 類 を 記述 する の 
に 向い て いま す . また , 本 書 を 手 に と っ た 方 は 。 基本 的 な C 言語 の プロ グラ ミン グ を 始め て いる 
と 思い ます の で は , ls.x と いう ディ レク トリ 表示 の プロ グラ ム を 作り な が ら , 分 割 コ ン パ 
イル と いう 手法 に つい て も 学ぶ こと に し ます . 


一 分 割 コ ン パ イル と は 

開発 する プロ グラ ム の 規模 が 大 きく な っ て くる と , ソー ス フ ァ イル の 大 き さ も 巨大 に な っ て き 

す 。 通常 。 プ ログ ラム が 完成 する まで は エディ ッ ト , コン パイ ル , テス ト の 繰返し で す 。 そ の 
と き , 巨大 な が ソース フ ァイル だ と エディ ッ ト に 手間 が か か り ま すし , コン パイ ル に も 多大 な 時 間 
が か か る よう に な り ま す . デバ ッ グ 段階 で は 数 個 の 関数 や 変数 に 変更 が 加え られ る だ け で あり 。 
全体 を 書き 換え る こと は まれ で す . そこ と で,。 ソー ス フ ァ イル を いく つか の 部 分 に 分 け 。 別々 に エ 
ディ ッ ト , コン パイ ル を 行う よう に する と デバ ッ グ を 効率 よく すす め る こと が で きま ます ( 図 | 5.6)- 

と の よう に プロ グラ ム を 複数 の ソー ス フ ァ イル に わけ て コン パイ ル す る こと を 分 割 コ ン バ パイ ル 
と いい ます 。 分割 コ ン パ イル が で きる か どう か は プロ グラ ミン グ 言 語 の 種類 や 処理 系 に より ます 
が 。 X68000 で 使用 する 言語 処理 系 (X-C, X-BASIC。 アセンブラ) は いずれ も 全 割 入 班 が 可能 
Ao 
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た と えば , a.c, b.bas, c.s と いう ソー スプ ログ ラム 
か ら prog.x を 作る 場合 


SQ 
の 】 
Ca 
1 1 
1 ビ 1 
1o 1 
1 1 
に ニコ 


C コ ン パ イ 


山 
レー 
= 
1 
1 ご 
し の 
計 且 
光 
1 
1 
1 
1 
に 


を 
は 
VN 
NI 
MI 
中 
〇 〇 
所 
“ き 
Y 
RI 
MI 
詳 
〇 の 
の 





修正 し た ファ イル に 関係 し た 
作業 だ け を 行え ば よい 


図 5.B 変更 の あっ た ファ イル だ け 再 コン パイ ル さ れる 


田 分 割 の 手法 

さて , ソー スプ ログ ラム を 分 割 す る に は どう いう 観点 で 分 割 す る か が 重要 で す . ここ で は , C 言 
語 を 例 に 考え て み ま す . まず , プロ グラ ミン グ 言 語 . ある い は 処理 系 の 仕様 に よる 分 割 の 制約 が 
あり ます . C 言語 で は コン パイ ル 単 位 は 変数 , もしくは 関数 , あるいは その 両方 を 含ん で いな けれ 
ば な ら ず , さら に 個々 の 関数 や 変数 の 定義 だ それ ぞ れ 完結 し て いな けれ ば な り ま せん . し た が っ 
て , 1 つの 関数 を 2 つの ファ イル に わけ て 書く とか, 変数 の 初期 値 を 複数 の ファ イル で 与え る な ど 
と いう と と は で きま 葵 ん 。 

処理 系 の 制約 を ふま えた 上 で , どの よう に 関数 や 変数 を 振分け る か を 考え ます . 分 割 す る 方 針 
と し て は , 開発 後 の 保 守 の し や すさ が ポイ ント に な り ま す . 同一 系 統 の 関数 は 1 つの ファ イル に 
集 っ て いた ほう が 管理 が 楽 で す . た と えば `fileio.c" と いう ファ イル が あれ ば これ は ファ イル を 
操作 する 関数 群 だ と 容易 に 見 当 が つき ます . また , ほとん どす べ て の 関数 が 参照 する よう な 変数 
は , 独立 し た 1 つの ファ イル (た と えば \variables.c?) に 集め て お く と 初期 値 の 変更 な ど が 容易 に 
な り ま す . 変数 の 初期 化 を 行う 関数 も 同一 の ファ イル に あっ た ほう が いい で し ょ う . 特定 の 関数 
だ けし か 参照 し な いよ うな 変数 は ,、 それ ら の 関数 と 同じ ファ イル に あっ た ほう が わか りや すい で 
し ょ う . 他 の どの 関数 と も 関係 を 持た な い 独 立 性 の 高い 関数 は それ ら だ け を 集め て 1 つの ファ イ 
ル に し ます . 

デバ ッ グ 時 の 時 間 的 な 効率 だ けが 目的 な ら ば 関数 1 個 、 変数 1 個 ど と に ファ イル に 分 ける こと 
も で きま す が , ファ イル の 数 が 数 百 個 に も お よぶ こと に な る の で 現実 的 で は あり ませ ん .。 や は り 
分 割 に も 限度 が あり ます . その 点 , 機能 別 の 分 割 は ファ イル が 適当 な 大 き さ と 数 に な る た め 好 都 
合 で す . 実際 , 数 千 行 程度 の 大 き さ の プロ グラ ム な ら ば 数 十 個 の ファ イル に うま く 分 割 す る こと 
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5.| プロ グラ ミン グ の 基礎 知識 


圭 で きま す . プロ グラ ム の 規模 が も っ と 大 きく な る と , また 別 の こと も 考え な けれ ば な り ま せん 
還 症 OO な ご まま れ で レレ た う - 


置 | コマ ンド の 製作 

ここ で は , 分 割 コ ン パ イル を 体験 する 例 と し て , ディレク トリ の 内 容 を 表示 する LS コマ ンド を 
性 る こと に し ます . こ の プロ グラ ム は ファ イル 名 や ディ レク トリ 名 を 並べ 替え て 表示 し ます の で , 
DIR コマ ンド に 比べ て 使い や すく な っ て いま す . 

さて , 分 割 コ ン パ イル を 行う た め に は , どの よう に 分 割 す れ ば よい か を 決め な けれ ば な り ま せ 
ん . LS コマ ンド の 内 部 的 な 動作 と と も に , 大 き な 切 分 け を 考え て み ま し ょ う . 

まず , main 関数 と それ に 付随 する 関数 で , 引数 を 読み 込ん で オプ ショ ン を 調べ , その な か か ら 
オプション を の ぞい た も の を ls 関数 に 渡し ます . 1s 関数 で は , 渡さ れ た 名 前 が ディ レク トリ 名 で 
ある か ファ イル 名 で ある か を 識別 し て , ディ レク トリ 名 で あれ ば その ディ レク トリ 内 の ファ イル 
名 を 並べ 替え て 表示 し ます . 次 に ファ イル 名 を 並べ 替え て 表示 し ます . これ ら の 関数 が lsS.c と い 
う 1 つの ファ イル に な っ て いま す . 

この ls.c か ら 使 う 関 数 の うち 比較 的 独立 し て いて ,。 ライ ブラ リ と し て 使っ て も 有効 な 関数 。 た 
と えば 引数 が ディ レク トリ 名 で ある か どう か 調べ る 関数 な ど を まとめ た ファ イル が low.c で す . 

ファ イル の 情報 の 保存 や 読出 し を する 関数 を まとめ た ファ イル が stack.c で す 。 ls で ディ レク 
トリ を 調べ る 場合 に 。 その ディ レク トリ 内 の ファ イル 数 は わか り ま せん . その た め フ ァイル を 並 
べ 替 えて 表示 する に は , その 情報 を と りあ え ず 保存 し , すべ て を 調べ 終っ た ら 読み 出す 必要 が あ 
り ま す . この stack.c で は , 外部 か ら ス タッ ク を 変更 され て 誤動作 し な いよ うに , 外部 か ら 変 更 さ 
れる 必要 の な い グ ロー バル 変数 を static 宣言 し て , 他 の モジ ュー ル か ら 変 更 さ れ て し まう こと を 
防い で いま す . 

また , ls.h で は ,。 これ ら の モジ ュー ル か ら 使 われ る 定数 や 構造 体 が 定義 S さ れ て いま す . 

この よう に , LS コマ ンド は 3 つの プロ グラ ム と 1 つの ヘッ ダ か ら 成 り 立 っ て いま す . これ ら の 
ファ イル は , 図 5.7 の よう な 関係 に な っ て いま す . 

リス ト 5.2ー リ スト 5.5 が , ls.x を 構成 する プロ グラ ム の リス ト で す . また, コン パイ ル の 手順 
は 次 の と お り で す . 





ce パグ ゲ 0 デ Y'sic Iowic stackti 
コン パイ ル で エラ ー が 発生 し た 場合 に は , ソー ス フ ァ イル を 修正 し て , 


cc グ M ノ 0O ノ Y ls.c low.c stack.c 


と 入力 し ます . プ M を 付け る と , ソー ス フ ァ イル と オブ ジェ クト ファ イル の 日 付 を 比較 し て , 指定 
し た ファ イル の な か か ら 再 コン パイ ル の 必要 が ある ファ イル だ け を 選び 出し て , 再 コ ン パ イル し 
ます . 
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main(…) 
( 
OSEtofaf 》* 
ls( ) 8 
: 
getOption( ) 
( 内 
) 
ls( ) 
( 
し = | 
陽 柚 3 





stack .c 


ニンジン 


initstack( ) 
( 


pushstate( ) 
( 


) 











popAllstate( ) 
( 
) 
| に と ェ で いこ | 
SS SS | 
? | 
) 
disp( ) 2 
{ 
) 
ララ 区 プラ リ 
図 巳 フ 各 フ ァイル の 構成 
cs 、 ミ ガバ レン こま 
ls .h リ ls.h リ ls.h リ 
ノーーーー ノ ヒーーーー ツ ノノ ヒーーーー ツ 
se リト ms リ [ssesD 
に の プー ツレ LE. e レ 
| | レコ ッ パ イラ 
0 人 00 グン 人 0 
ss リル [es U [smsU | 
I 1 の お 
カリ ep 
[ ィ Leessle es コ 
グー ツー ジ 
図 弓 . ヨ IS の コン パイ ル の 流れ 


5.1| プロ グラ ミン グ の 基礎 知識 


リス ト 己 . 己 ヘッ タフ ァ ィ ル (ls.h) 


・#define FALSE M 
・#ifndef NULL 
#define NULL 


#endif 
/* define of attribute for FILES(), NFILE() */ 

・#define RED 9x91 /* read only */ 

#define HID Mx2 /* hidden file */ 

#define SYS 94 /* system file */ 
・ #define VOL 98 /* volume ID */ 
・#define DIR 9x1g /* directory */ 
・#define FLE 29 /* normal filc */ 


・ #define ATRMAX 7 
・ #define ALLATR (RED | HID | SYS | DIR IFLE) 


・ #define MAXPATH 128 /* on Human68k max path length is 91 */ 


・ typedef int boo1! ………tt…… FALSE か ! FALSE の 値 し か 持た な い bool 型 を 定義 する 
・ typedef struct FILBUF STATE iti… struct FILBUF 型 を STAT 型 と も 記述 で きる よう に する 


ーーーーーーーーーーーーーーーーーーーーーーーーーー、、 パ パパ パパ 0 ハハ へ へ 


リス ト 5.3 メイ ィ ン ル ー テ ン ((sc) 


+ー ッ ーー テー テー トー トー トー ルス 
So- コ oy coSkto ら mcooo- コ の cm ょ は co ko 


1: #include <stdio.h> 
2: #include <doslib.h> 
3: #include <error.h> 
4: #include <stdlib.h> 
5: #include "ls.h" 
6: 
7: #define WIDTH 95 /* width of screen */ 
6: #define SHORTHELP g 
9: #define isDriveName(path) (*(path) != " 導 ) 88 *(Cpath) + 1) == し 88 … 廊 字 名 が ドラ イブ 名 か チェ ッ ク 
*((path) + 2) == "けり する マク ロ 定 義 関数 
19: #define isWildCard(fname) (strpbrk((fname),"*27) に NULL) ………… 交 字 列 が ワイ ルド カー ド を 含ん で い 
11: #define isDir(st) ((Cst)->atr & DIR) == DIR)… る か チェ ッ ク す る マク ロ 定 義 関数 
1 #define isHide(st) (((st)->atr & HID) == HID)… "STAT 型 へ の ポイ ンタ が 指す デー タ が ディ レ 
: 人 ….。 クト リ か チェ ッ ク す る マク ロ 定 義 剛 数 
4 MLSHLBL sty が "STAT 型 へ の ポイ ンタ が 指す デー タ か 念 れ た 
・ Static char PATHDELM[] = "\\: ファ イル か チェ ッ ク す る マク ロ 定 吉 
16: static bool optl = FALSE: 5 
17: static bool optl = FALSE: 
18: 
19: extern int errnoi 
29: 
21: char *Whoamii: 
228 
・ Static bool opta = FALSE: 
・Static bool optA = FALSE: 
・Static bool optF = FALSE: 


・ static char *Usage[] = { 

: ” ls [-1AFal] [-help] [-?] (path).*m" | 

。 。 -1 : force one entry per line output format." 

・ 。 。 -A : almost same option as -&, except for (.) and (.…).*, | 
『: cause directories to be marked with a trailing "時",\n ロ 7 

and executable files with a trailing EE il 

-a ・ list all entries.\n", 

・ ーー-1: list jn long format.", 

・ NULL 


ヘル フ メ ッ セ ー ジ 


CS <Sc<S<S<S<ScSKOKEOKOKOKOK ト OK っ 
oO た coSkO ら moo- コ の の mc う 
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37・ 
38: void usage(type) 
39: int type: 
49: 【{ 
41: Tegister char *Xp type が SHORTHELP に 等 し いな ら 短い 
42: ヘル プ メ ッ セ ー ジ を , そう で な いな ら 長 
43: if (type == SHORTHELP) { い ヘ ルプ メッ セー ジ を 表示 する 関数 
44: fputs(*Usage, stderr)} 
45: }) else { 
46: for (p = Usagei *p != NULL: p++) 
47: fputs(*p, stderr): 
48: } 
49: } 
5 
51: void fperror(fname) 
52: char *fnamei 
53: { す 生 0 は 者 。 
54: fputs(Whoami, stderr): KC ドー 
55: fputs(": ",。 stderr): 
56: perror(fname): 
7 
58: 
59: int sort(states, cnt) 
69: register STAT **statesi 
61: register int cnti 
62: 
63: register int j, jj 
64: register STAT *tmpi 
65: 
66: for (ji 3 1 < cnti j++) { 8 
67: for () =1+ 15 」< cnti j++ ジ 時 
68: if (strcmp(states[i]->name, states[j]->name) > 9) ( ae 和 の 
69: tmp = states[i]: 関数 
79: states[i] = states[j]: 
PA states[j] = tmpi 
72: 
73: } 
74: 
75: return cntj 
76: )} 
77: 
78: void wideDisp(states, cnt) 
79: register STAT *xstatesi 
89: register int cnti 
81: { 
82: int maxlen, PTXmaX, PTYM8aX? 
83: register int ji, j, ki 
84: register char *namej 
85: 
86: maxlen = 中 
87: for (ij = 角 1<cnti jr+) { 
88: j = strlen(states[i]->name): 
89: if (maxlen < J) 
99: maxlen = jj 
91: ) 
92: maXlen += 4: 上 寺 
93: prxmax = WIDTH / maxlen: 9 人 
94: prymax = (cnt - 1) / prxmax + 1 表示 する 関数 
95: for (1 = 包 ji<prymaxi i++) 【 
96: for (j」= ii 」< cnti 」+= prymax) { 
97: name = states[j]->namei 
98: k = 角 
99・: while (*name != "\) 【 
199: putchar(*name): 
250 
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191: ham6++: 

192: k++5 

193: } 

194: for (: k < maxleni k++) 

195: putchar(” うう: 

196: 

197: putchar(' 条 りう: 

198: } 

199: } 

119: 

111: void longDisp(state) 

112: register STAT *statej 

113: { 

114: register char *p, mode[ATRMAX]: 

115: register unsigned char atri 

116: char *settime(): 

HI7* 

118: atr = state->atri ファ イル 情報 を 受け て , それ 
119: p = mode: を 詳し く 表 示す る 関数 
12: *pt+ = (atr &DIR) 7 7d | リー /* directory */ 
121: *p++ = (atr & SYS) 7 Ss) | リー /* system file */ 
122: *p++ =(atr &HID) 97h | リージ /* hide file */ 
123: *p++ ニ Fi 

124: *p++ = (atr & RED) 7 | wi /* read only */ 
125: *p = \) 

126: 

127: fputs(mode, stdout): 

128: fprintf(stdout, ” %6u ", state->filelen): 

129: fputs(settime(state->date, state->time), stdout): 

13 上 : fputs(" 。 ”。 stdout): 

131: puts(state->name): 

323 3} 

133: 

134: static int change(state, cnt) 

135: register STAT **state: 

136: register int cnti 

137: { 

138: register int ji, jj 

139: register char *namei 

149: 

141: = 中 

142: for (ji = 包 1 < cnti jr+) ( 

143: name = state[i]->namei 

144: if (opta != FALSE II ファ イル 情報 の 配列 を 実際 
145: (strcmp(name, ".”) != 9 8&& strcmp(name, "..”) != 9 && | に 表示 する ファ イル 情報 の 
146: (optA != FALSE II isHide(state[i]) == FALSE))) 5 配列 に 変換 する 関数 
147: state[j++] = state[i]: 

148: if (optF != FALSE) 

149: if (jsDir(state[i]) != FALSE) 

159: strcat(name, PATHDELM): 

151: else if (jisExec(state[i]) != FALSE) 

152: strcat(name, "*): 

153: } 

154: } 

155: return jj 

156: } 

157: 

158: void disp(state, cnt) 

159: register STAT *xstatei 

169: register int cnti 

161: 【 

162: if (optl != FALSE) { 

163: while (cnt-- != の ファ イル 情報 の 配列 を オプ ショ ン 
164: longDisp(xstate++): に 従っ て 表示 する 関数 
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165: ) else if (opt1 != FALSE) ( | 
166: while (cnt-- != の 

167: puts((*state++)->name) 
168: ) else { 

169: wideDisp(state, cnt): 

179: 1) | 
8 寺 

172: 


173: void ls(argc, argv) 
174: register int argcoi 
175: register char *argv[]: 














176: { 
177: char newpath[MAXPATH]: 
178: STAT test, **statei 
179: register int 1, jj 
189: register bool doit = FALSE: 
181: int cntj 
182: extern char *head(): 
183: 
184: for (j = ij= 明 1<argci ji は +) { 
185: strcpy(newpath, argv[i]): 
186: if (isDriveName(argv[i]) | isRoot(argv[i])) { 
187: strcat(newpath, ALLFILE): ee 
188: ) else if (lisWildCard(argv[i]) && isDirectory(argy[i])) { | 指定 され た 名 前 を 
189: strcat(newpath, PATHDELM): や 
199: strcat(newpath, ALLFILE): EE 
191: ) else if (*head(argv[i]) == ' 聞 )) 
192: argV[j++] = argv[i]: 
193: continuei 
194: 
195: initStack(Oj ……… スタ ッ ク を 初期 化す る 
0 if 04 newpath, ALLATR) >= 9) { | 9 きれ た 名 前 に マッ チ する ファ イル 
198: pushState(&test): 6 < 
199: ) while (NFILES(&test) >= の : 2 2 な 
2 久 : ) else { 
291: errno = ENOENT: 
292: fperror(newpath): 
293: continuei 
294: 
205: popAlIState(&state, &cnt)) ………ー スタ ッ ク に 積ん だ 情報 を すべ て 取り 出し て 配列 に する 
26: cnt = sort(state。 cnDOi mm 情報 を 並べ 替え る 
297: cnt = change(state,。 cntOi 情報 を 出力 に 適し た 形 に 変換 する 
28: if (argc > 1) 
209: puts(argv[i]): 
21: if(cnt> の 【 
211: doit = !FALSE: 
212: disp(state, cntOi …… 表示 する 
213: } 
214: free(state): 
215: } 
216: initStack(O: 
217: for (ij = 包 1<jj jr) 【 1 
218: if (FILES(&test, argv[i], ALLATR) >= の {| 
219: do { 
229: pushState(&test): 
221* ) while (NFILES(&test) >= の : 
222: ) else { 
223: errno = ENOENT: 
224: fperror(argv[i]): 
225: continuei 
) | 上 と 同様 な こと を 指定 され た 
228: popAllState(&state, &cnt): ees10 
に タカ 
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229: cnt = sort(state, cnt): 
238: cnt = change(state, cnt): 
231: ii (cnt> の 【{ 

232: if (doit != FALSE) { 
233: puts("9): 

234: 

235: disp(state, cnt): 

236: 

237: free(state): 

238: )} 

239: 

249: void getOption(option) 

241: register char *option: 

242: { 

243: if (option == NULL) 

244: return: 

245: for (j *option 1= 還 : optionr+) { 
246: switch(*option) 【 

247: case 1 : 

248: optl = !FALSE: 

249: break: 

25 明 : case 'a′: 

251: opta = !FALSE: 

252: breaki 

253: case A': 

254: optA = !FALSE: 

255: breaki 

256: case F': 

257: optF = !FALSE: 

258: breakj 

259: case 1': 

26: optl = !FALSEj 

261: break: 

262: case "7: 

263: usage(SHORTHELP): 
264: exit(1): 

265: case 'h': 

266: usage(!SHORTHELP): 
267: exit(1): 

268: default 

269: fprintf(stderr, "unknown option -%c.\m"。*option): 
279: 

271: } 

279: 3 

273: 

274: vojid main(argc, argv) 

275: register jnt argci 

276: register char *argy[]: 

277: { 

278: register int ji, jj: 

279: register char *envi 

289: 

281: Whoami = tail(argy[9]): 
282: 

283: getOption(geteny("lsopt”)): 
284: for () = 1=1: 1<argci ir+) 【 
285: if (Xargv[i] == "ーー)) { 
286: getOption(argv[i] + 1): 
287: } else 5 

288: argvV[j++] = argy[i]: 


289: 


| getOp tion 関数 で 評価 する 





引数 が オプ ショ ン だ っ た な ら ば , 


引数 か ら オ プシ ョ ン を 
取り 出し て 評価 する 
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291: 
292: 
293: 
294: 
295: 
296: 





7 (j」== の 

argV[Lj++] = kk"5 | 
NN 引数 に 従っ て ファ イル 情報 を 表示 する 
exit( の : | 


リス ト 盛 .4 サポ ー ト ルー チン (low.C) 

















1: #include <stdio.h> 
2: #include <doslib.h> 
3: #include <error.h> 
4: #include <stat.h> 
5: #include "ls.h" 
6: 
7: #define ITOA(c) ((c) + 89) 
8: #define MONTH(d) ((d) >> 5 & 9Xf) 
9: #define DATE(d) ((d) & 9x1f) 
19: #define YEAR(d) ((d) >> 9 & 9x7f) 
11: #define HOUR(t) ((t) >> 11 & 9x1f) 
12: #define MIN(t) ((t) >> 5 & 記 3f) 
13: #define SEC(t) (((t) & 1f) * 2) 
14: #define YEARORG 89 
163 
16: #define jsDrive(path) (*(path) != " 聞 ) && *((path) + 1) == 5 
17: #define isPathDlm(c) ((c)=="/'11(c)== "りう ) 
18: 
19: extern jint errnoi 
29: 
21: char *settime(date, time) 
22: register unsigned int date, time: 
23: 
24: static char timetbl[] = "Mar 12 85 12:12:19 の : 
258 static char *month[16] = { "Jan",。 "Feb", "Mar"。 "ApTP」 
26: "May"。 "Jun"。 "Ju1"。 PAUg”, 
27: "Sep",。 "0ct" "Nov" "Dec", 
28: 5 9 科 。 90 19 MBC NM ファ イル 情報 中 
29: の 日 付 を 文字 列 
39: sprintf(timetbl, "%3s %2d %2d %2d:%2d:%2d”, month[NONTH(date) - | に 補 換 する 
1], 
983 DATE(date), YEAR(date) + YEARORG, HOUR(time), MIN(time), S 
EC(time)): 
2 return tjimetbli 
33: 
34: 
35: char *lastDlm(path) 
36: register char *path: 
37: 
38: register char *dlm = path: 
39: 
5 SR 
折 if MM != FALSE) バス 中 の 一 
42: for (, *path 1= ” 痕 ') patht+) を 
43: if (isPathDlm(*path) != FALSE) 
44: dIm = pathj 
45: else if (jskanji(*path) != FALSE && *(path + 1) != ” 導 り ) 
46: path++: 
47:・ 
48: return dlImi: 
49: } 
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59: 

51: char *tail(path) 

52: register char *path: 

53: { 

54: static char name[MAXPATH], パス か ら パ ス の 指す 

55: ファ イル の 名 前 を 取 

56: strcpy(name, path): り 出 す 関数 

57: path = lastDlm(name): 

58: return path == name ? path : path + 1: 

59: } 

69: 

61: char *head(path) 

62: register char *path: 

63: 【 

64: static char name[MAXPATH]: 

65: パス か ら そ の ファ イ 

66: strcpy(name, path): ル ま で の 径 路 を 取り 

67: *lastDlm(name) = "9: 出す 関数 

68: return name 

69: } 

79: 

71: bool isRoot(path) 

72: register char *path: 

8 【 

74: if (isDrive(path) != FALSE) パス の 表す ディ レク トリ を ルー トディ レク トリ 
75: path += 2: と し て 扱う 必要 が ある か どう か チェ ッ ク す 
76: if (isPathDlm(xpath) && *++path == ' 章 ') | る 関数 

7 return FALSEj 

78: else 

79: return FALSE: 

89: } 

81: 

82: bool isDirectory(path) 

83: register char *path: 

84: 【 

85: struct stat stbufi 

86: register char *pj 

87: 

88: if (stat(path, &stbuf) == 9 && (stbuf.st_mode & S_IFDIR) 1= の 【《(| 
89: return !FALSE: の 
99: ) 指し て いる か どう か チ 
91: ptail(path): 人 Sa 
92: if (strcmp(p, ".") == Il strcmp(p, "の ) == の 【 

93: return !FALSEj 

94: ) else { 

95: return FALSE: 

96: 

97: } 

98: 

99: bool isExec(st) 

199: register STAT *st: 

1 四 : { 

192: register char *namei 

193: 

194: if (st->atr & FLE) { 

195: name = st->namej | 

196: name += strlen(name) - 1 | 

197: switch (tolower(*name)) 【 

198: case 【': /* when extension is ".bat" */ 」 ファ イル の 二 ミラ ファ テ 
199: if (tolower(*--name) != 'a′ II tolower(*--name) != 'b') イル が ディ レク トリ か ど と 
119: break: うか チェ ッ ク す る 関数 
11 選 case 'X' /* when extension is ".x” */ 

112: case Tr' /* UE 

113: case 2' /* ング 宮 
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/* check NMMAX > Stcnt ? 


States->next = (STATES *)malloc(sizeof(STATES))) 


linking States */ 


*/ 


| ファ イル 情報 の 配列 を 
初期 化す る 関数 





ファ イル 情報 を スタ ッ ク 
に 積む 関数 








114: if (tolower(*--name) == '.) 
115: return !FALSEj 
116: ) 
117: } 
118: return FALSE: 
119: } 
リス ト 号 . 巳 ファ イル 情報 の 保存 と 読出 し ルー チン (stack.C) 
1: #include <stdio.h> 
2: #include <doslib.h> 
3: #include <error.h> 
4: #include "ls.h" 
5: 
6: #define NMMAX 3 
is 
8: typedef struct _states { 
9: STAT *state[NMMAX]: 
19: struct _states *next: 
11: }】 STATES: 
12: 
13: static STATES *Root = NULL: 
14: static STATES *Statesj 
15: static STAT *xStatei 
16: static int Allstcnti 
17: static int Stcnti 
18: 
19: extern int errnoi 
29: extern char *Whoamii 
21: 
22: static void memerror() 
23: { 
24: errno = ENOMEM: メモ リエ ラー を 出力 する 関数 
25: perror(Whoami): 
26: 
27 バ 
28: static void initBuffer() /* get memory */ 
29: 
39: register jint ji 
31: register STAT *buf, **xst: 
32: 
33: if ((buf = (STAT *)malloc(sizeof(STAT) * (NMMAX))) == NULL) 5 
34: memerror(): 
35: exit(1): 
36: 
37: st = States->state: 
38: for (ij = 世 」<NMMAXi j++) { 
39: *St++ = buf++: 
49: } 
41: } 
42: 
43: void pushState(st) 
44: register STAT *st: 
45: 
46: if (Stcnt == NMMAX) { 
47: if ((States = 
== NULL) { 
48: memerror(): 
49: exit(1): 
59: 
51: States->next = NULL: 
52: State = States->state: /* 
256 
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53: Stcnt = 中 

54: initBuffer(): 

55・ 

56・ **State++ = *stj 

57・ Allstcnt++: 

58: Stcnt++5 

59: } 

69: 

8l: void popAlIState(buffer, count) 


62: STAT **xbufferi 
63: int *count: 
64: 
65: register int i, cnt: 
66: register STATES *statesi 
67: register STAT **buf, **state: 
68: 
69: if (Allstcnt == 9 の { 
79: *count = 中 
71: *buffer = NULL: 
72: }) else { 
73: *count = Allstcnti 
74: if ((*buffer = 
)) == NULL) { 
75* memerror(): 
76: exit(1): 
7 
78: states = Root 
79: state = states->statei 
89: cnt = 中 
81: for (ji = Allstcnti ji > 5 ュー-) 【 
82: if (cnt == NMMAX) { 
83: states = states->next: 
84: state = states->state: 
85: cnt = 
86: 
87: *buf++ = *state++: 
88: cnt++5 
89: } 
99: } 
91: } 
92: 
93: void initStack() 
94: 【 
95 register STATES *states, *tmpi 
96: 
97: if (Root != NULL) 【 
98: for (states = Rooti states != NULL: states = tmp) 【{ 
99: free(states->state): 
1 久 : tmp = states->nextj 
191: free(states)} 
192: 
193: } 
194: if ((States = Root = 
195: memerror(), 
196: exit(1): 
197: 
198: States->next = NULL: 
199: State = States->state /* 
119: Stent = 中 
MIG initBuffer(): 
112: Allstcnt = 久 
113: } 


/* copy structure of STAT */ 


buf = (STAT **)malloc(Allstcnt * sizeof(STAT *) 





を 開放 する 





(STATES *)malloc(sizeof(STATES))) == NULL) 


linking States */ 





スタ ッ ク に 積ま れ た 
すべ て の ファ イル 情 
報 を 配列 化し て 取り 
出す 関数 


これ まで に スタ ッ ク が 
使わ れ て いた な ら そ の 
と き に 確保 し た メモ リ 


| 新しい スタ ッ ク を 
| 初期 (E す る 
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一 | コマ ンド の 使い ご こ 

ls.x と いう 実行 ファ イル が で きた ら , さっ そく < 使っ て みる こと に し まし ょ う . 

と の プロ グラ ム の 引数 に は ,。 ワイ ルド カー ド を 含ん だ 複数 の ディ レク トリ 名 か ファ イル 名 を 使 
えま す . 引数 が ディ レク トリ 名 な ら ば , その ディ レク トリ に 含ま れる ファ イル と ディ レク トリ に 
つい て の 情報 が 。 ファ イル 名 な ら ば , その ファ イル に つい て の 情報 が 表示 され ま す . も し 引数 な 
し で 実行 する と , カレ ント ディ レク トリ を ディ レク トリ 名 と し て 与え られ た 場合 と 同じ 動作 を し 
ます . 

また ,。 次 に 示す よう な いく つか の オプ ショ ン も 用 意 き され て お り , パー” の あと に 続け て 書い て 指 


定 し ます 。 


SV 肖 … 1 行 に 1 つの 情報 し か 表示 し な い 

ーa … HH 属 性 の つい た ファ イル も 含め 、 すべ て の ファ イル を 表示 する 

ーA 。 … バク と 2 を の ぞい て ヾ ーa? と 同じ 動作 を する 

ー ト ド … ディ レク トリ に は “ 学 /。 実行 可能 ファ イル に は “*” を つけ て 表示 する 
| … ファ イル に 関す る 詳し い 情 報 を 表示 する 

ー ? … 短い ヘル プ メ ッ セ ー ジ を 表示 する 

ーhelp … 長い ヘル プ メ ッ セ ー ジ を 表示 する 


.1 .4 関数 を ファ イル する 

ライ ブラ リ と は , いく つか の オブ ジェ クト を 1 つ に まとめ た も の だ と いう こと は , すでに 説明 
し まし た . し か し , た だ まとめ た だ け で は 必要 な 関数 の オブ ジェ クト を 取り 出す こと は で きま せ 
ん . その た め に は , 目的 の オブ ジェ クト が ライ ブラ リ 中 の どこ に 含ま れ て いる の か と いう 情報 も 
含め て 保存 し な けれ ば な り ま せん . こう し た 情報 の 付加 も 含め て , オブ ジェ クト を 1 つ に まとめ 
る 作業 を し て くれ る の が AR( ア ー カ イ バ ) と いう プロ グラ ム で す 。 

基本 的 な アー カイ バ の 機能 は , ファ イル の 登録 , 更新 抽出, 削除 を する こと で す . それ に 付 
随 し て , アー カイ ブフ ァイル の 内 容 の 表示 や ,。 他 の ファ イル 内 容 の 指定 に 従っ て アー カイ ブ す る 
と いっ た こと も で きま す ( 表 5.2). 


テキ スト ファ イル を アー カイ ブ す る 

バッ クア ッ プ ファ イル を 作成 する 

ファ イル を アー カイ ブフ ァイル か ら 削 除 する 

/i file ファ イル の 内 容 に 従っ て アー カイ ブ す る 

4| アー カイ ブフ ァイル の 内 容 を 表示 する 

7u ファ イル の 登録 も し く は 更新 を する 

/v 何 を アー カイ ブ し て いる の か と いう 状況 報告 を する 
/x ファ イル を アー カイ ブフ ァイル か ら 抽 出す る 

表 巳 巳 アー カイ バ の オプ ショ ン 一 覧 
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それ で は , アー カイ バ に 慣れ て も ら う た め に も , LS コマ ンド を 構成 し て いる ファ イル の うち 
stack.c 中 の 関数 を , ワ ー ク ディ スク の ルー トディ レク トリ の usrlib.a と いう ファ イル に 登録 し て 
み ま し ょ う . ライ ブラ リフ ァイル の 名 前 と ,。 オブジェ クト ファ イル の 名 前 を 指定 する だ け で す の 
で か ん た ん だ 行う こと が で きる は ず で す ( 図 1.2)、 


cc グ M ノ /L ノ O stack.c 
ar a: ぎ \ib\usrlib.a stack.o 


usrlib . a 





新しい usrlib . a 


5. ヨ B ライ ブラ リ 化 の 流れ 


ウ . の 複数 の 言語 を 使っ た プロ グラ ング 


言語 の 基本 的 な 使い か た を 理解 し た ら , いよ いよ 複数 の 言語 に また が っ た プロ グラ ミ ング に 
挑戦 し て みる こと に し まし ょ う . 
複数 の 言語 を 使う 場合 に は , どの 言語 千 を 中 心 と し て プロ グラ ム す る か と いう こと に つい て 決め 
な けれ ば な り ま せん . X-BASIC を 選ん だ 場合 , 他 の 言語 で 書い た 部 分 は 外部 関数 と し て 劉 み 
み ,。 完成 し た ら コ ン パ イル する , と いう 手順 を と り ま す . この 方 法 な ら , デバ ッ グ を %-BASIC 」 
で 対話 的 に 行え を る と いう メリ ッ ト が あり ます . た だ , あま り 複 殺 な デー タ 構 造 は 使え を な いとい 
欠点 は あり ます . 





r M 


Ny 


+ 


C 言語 を 選ん だ 場合 , デー タ 構 造 の 制限 な ど は あり ませ ん が , デバ ッ グ の た びに 吾 コ ン パ バイ ルレ 
な けれ ば な ら ず , 非 効率 的 な 面 が あり ます . 
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5. 己 .]1 X- 昌 AIO を 中 心 と し た プロ グラ ミン グ 

まず , X-BASIC を 中 心 と し て プロ グラ ム を 書く 場合 を 考え て み ま す . プロ グラ ミン グ テ C 言語 
と 思っ て いる 方 も 目 を 通し て いた だ けれ ば ,。X-BASIC な ら で は の メリ ッ ト に 興味 を 持た れる と 
思い ます . 








国外 部 関数 を 組み 込む 

X-BASIC を 中 心 に すえ て , 他 の 言語 で 書か れ た モジ ュー ル を 利用 する た め に は , X-BASIC の 
外部 関数 を 作ら な けれ ば な り ま せん . 外部 関数 は , 基本 的 に は アセ ン ブ ラ で 書き た いと ころ で す 
が , それ で は あま り 現 実 的 で は あり ませ ん . し か も , せっ か く 苦 労 し て 外部 関数 を 作っ て も , そ 
の 関数 は あく まで 外部 関数 で すか ら ,C 言語 の プロ グラ ム か ら は 利用 する こと が で き な い の で す . 
この よう な 問題 点 を 解決 する た め , ヌ -BASIC や C 言語 で 書い た 関数 を 半自動 的 に X-BASIC 
の 外部 関数 に する ツー ル (mkb) を 紹介 し ます . この ツー ル を 使え ば . アセ ン ブ ラ に つい て の 知識 
が な く て も 外部 関数 を 作る こと が で きま すし , な に より C 言 語 の 関数 と し て も 使う こと が で きる 
の で すず す 。 

さき さて, この ツー ル は いっ た い ど の よう な 作業 を し て いる の で し ょ うか . まず , X-BASIC や C 言 
語 で 書か ん て いる プロ グラ ム を アセ ン ブ ラ の ソー スプ ログ ラム の レベ ル ま で コン パイ ル し ,。 アセ 


外部 関数 の た め の 
ヘッ ダフ ァイル 外部 関数 の ソー ス フ ァ イル 


0 C 














X-BASIC の セシル プラ 




















ビデ 〇 














BASTOC 
コン バー タ 





C コ ン パ イラ C 





C ヨ ン パ イラ 


テー ブル の 作成 











OR トニー コモ OS 











sch フ ァイル は 
外部 関数 の た 

め の ア セン ブ 

ラ の ソー ュ フ SCh 
ァイル で 拡張 

子 sch を 持つ 














sch sch 


sch 


ーー レニ ーーー ト ーー ルー 























〇 
ルン ッ 


obj| の 外部 関数 の 使う 
! ライ ブラ リ 














obj フ ァイル は 
外部 関数 の た 
め の オ ブ ジ ェ 
クト プア 才 リン カ 
で 拡張 子 obj 
を 持つ fne| ? 外部 関数 


obj 











=O | ペーー ビ O 











=O |< と ーー に O 
=O | ペーー ド に oO 


























5.10 mkD の 作業 内 容 


260 
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ンプ ブラ の ソー スプ ログ ラム を 外部 関数 に 適する よう に 書き 換え て アセ ンプ ブル し ます . な お , アセ 
ンプ ブラ の ソー スプ ログ ラム を 書き 換え る 際 に mkb が 参照 する 情報 と し て , 外部 関数 に 必要 な 
テー ブル や , 引数 , 戻り 値 の 受け 渡し に 関す る 情報 を 書い た ヘッ ダフ ァイル を 別に 用 意 し な けれ 
ぼ ば な り ま せん ( 図 5.10). 

この よう に , 1 つの 関数 を 作る だ け で 双 -BASIC か ら 利用 で きる 外部 関数 と C 言語 な どか ら 利 
用 で きる ライ ブラ リ と いう 2 つの 形式 で 登録 で きる と いう 便利 な ツー ル な の で す . で すか ら , 日 
頃 の 作業 を こま め に し て いれ ば , 1 つの ソー スプ ログ ラム で 双 -BASIC と C 言語 の どちら も 同じ 
仕様 の 関数 を 拡張 し , 同じ 環境 を 保つ と いう こと も で きる わけ で す . 

リス ト 5.6 に mkb の ソー スプ ログ ラム を 掲げ ます . コン パイ ル の 手順 は , 次 の と お り で す . 


cc グ O mkb.c 


リス ト 古 外部 関数 を 作る プロ グラ ム (mkb.C) 


・ #define MACRO 


: #include <stdio.h> 
・ #include <doslib.h> 
・ #include <error.h> 
: #include <fcntl.h> 
・ #include <process.h> 
・#include <string.h> 


co ら Co=- コ OOoc<m RC で StO ッ 一 


19: #define FNSIZE 128 

11: #define MAXFUNC 256 

12: #define MAXARG 1 /* max number of argument */ 
13: #define OK 六 

14: #define ERROR  -1 

15: #define forever for (5?) 

16: #define lastchr(p) (*((p) + strlen(p) - 1)) 


18: /* values of data types for putFuncType() and putArgType() */ 
19: #define _float 1 
29: #define _int 2 
21: #define _char 3 
22: #define _str 4 あま 
23: #define void 5 
24: #define _else 
25: #define _ptrmsk 8 
26: #define _mask 7 


/* ex. ptr of int is 191B */ 


27: 

28: typedef struct { 

29: int funcType: 

39: char *funcName: 

31: int argNumi 

32: int argTypes[MAXARG]: 

33: } FUNCTION: 

34: 

35: static char sFLOAT[] = "float": 
36: static char sINT[] 3 


37: static char sCHAR[] = "char”: 
38: static char sSTR[] = "str”: 


39: static char sVOID[] "void": 


4: static char SEP[] = ” ) 条 の : 
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41: 

42: static char *HEAD[] = { 

0 TEXT", 

44: ” INCLUDE fdef.h", 

45: ” 。 GLOBL  _main", 

46: "_main:”, 

47: ” dc.1 X_INIT", 

4628 4d68 X_RUN", 

49: ” dc.1 X_END", 

59: ” dc.1 X_SYS", 

5 ざー de] X_BRK", 

072 和 mdes.【 だ 6NRie DP 

53: ” dc.1 X_RES1P, 

54: ” dc.1 X_RES2", 

5 do ptr_token", _JE 

56: ” dc.I1 ptr_param", 2 

575 う 、。de。 1 ptr_exec', 

58: ” dc.1 5 の, 

59: "X_INITE"」 

69: "XLRUNI", 

61: "XEND:", 

62: "た SY5:7, 

63: "X_BRK:", 

64: 7"X_CTRL_D:", 

065: "XRESLSSS 

66: "7X_RES2:", 

67 サ 9 す  itg7 

68: NULL 

69: }: 

79: 

71: static int LabelCnt = 久 

72: static char *Whoamii 

73: static FUNCTION *Funcs[MAXFUNC]: 

74: 

75: void my_strmfe(name, orgname, eXt) 

76: register char *name, *Orgname, *eXt 

773 

78: register char *ptr: 

795 

8 if (name != orgname) 【 

81: strcpy(name, orgname): 

82: ) 

83: if ((ptr = strrchr(name, 「.)) == NULL 日 ptr < strrchr(name, 
すう) 【 

84: strcat(name, "."): 

85: strcat(name, ext): 

86: }) else { 

87: strcpy(ptr + 1, ext): 

88: 

89: } 

99: 

91: int my_execlp(pathname, args) 


・ char *pathname, *argSj 





バグ を 除い た execlp 関数 
return execvpe(pathname, &args, NULL): 





・ jnt chktype(ptr) 
・register char *ptr: 


if (strcmpi(ptr, sFLOAT) == 9) { 
specifier */ 


/* float type- 





元 の 名 前 の 拡張 子 を 
指定 され た 拡張 子 で 
置き 換え る 関数 
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ミラ の 








l 昌 1 : return _float: 

昌 2: ) else if (strcmpi(ptr, sINT) == の { /* jint type-specifier 
*/ 文字 列 か ら そ の 

193: return _inti 文字 列 の 表わす 

194: ) else if (strcmpi(ptr, sCHAR) == 9) { /* char type-specifier | を 調 で る 開 数 
ネ 

195: return _chari 

196: ) else if (strcmpi(ptr, sSTR) == 9) { /* str type-specifier 
*/ 

197: return _stri 

198: い ) else if (strcmpi(ptr, sVOID) == の { /* void type-specifier 
4 

199: return _voidi 

119: }) else { 

/* no def. */ 

111: return _elsei 

112: } 

隊 。 ) 

114: 

115: void putFuncType(funcType, fp) 

116: int funcType: 

117: FILE *fpi 

NII3: 【( 

119: fputs("\tdc.w\t", fp): 

129: switch (funcType) { 

121: case _float: 

122: fputs(sFLOAT, fp): 

123: breaki 

124: case _int: 

25: fputs(sINT, fp): 

126・ breaki 数 値 に 応じ た 関数 の 型 を 出力 する 関数 

27・ caSe _Str: 

128: fputs(sSTR, fp): 

129: break: 

13: caSe _VOid: 

131: fputs(sVOID, fp): 

132: break: 

133: default: 

134: fputs("error putFuncType.\n", stderr): 

135: exit(1): 

136: } 

137: fputs("_ret\n", fp): 

138: } 

139: 

149: void putArgType(argType, fp) 

141: int argTypej 

142: FILE *fp: 

143: % 

144: fputs("\tdc.w\t"。 fp): 

145: switch (argType & _mask) { 

146: case _float: 

147: fputs(sFLOAT, fp): 

148: breakij 

149: caSse _int: 

15: fputs(sINT, fp): 

151: breaki 

152: case _char: 

153: fputs(sCHAR, fp): 数 値 に 応じ た 変数 の 型 を 出力 する 団 表 

154: break: 

155: case _Str: 

156: fputs(sSTR, fp): 

157: breaki 

158: default: 

159: fputs("error putArgType.\n”, stderr): 

169: exit(1): 








263 





5 章 X68000 ら しい プロ グラ ミン グ 





161: ) 

162: if (argType & _ptrmsk) 

163: fputs("_vp\n", fp): 
164: else 

165: fputs("_val\n", fp): 
166: } 

167: 

168: 

169: FUNCTION *readFunc(fp) 

179: register FILE *fpi 








ZZ 【 
2765 static char sbuf[BUFSIZ]: 
173: register FUNCTION *funci 
174: register char *ptr: 
175: register int cnt, typei 
176: 
177: forever { 
178: if (fgets(sbuf, BUFSIZ, fp) == NULL) 
179: return NULL: 空 行 を 読み と ば 
189: if ((ptr = strtok(sbuf, SEP)) != NULL) ON 
181: break: 
182: } 
183: if ((func = (FUNCTION *)malloc(sizeof(FUNCTION))) == NULL) { 
184: errno = ENOMEM: 
185: perror(Whoami): 
186: eXit(errno): 
187: } 
188: switch (type = chktype(ptr)) { 
189: caSe _Char : 
199: fprintf(stderr, “"%s: 関数 の 戻り 値 に char 型 は 使え ませ ん 
。 \n",。 Whoami): 
191: exit(1)} 
192: case _else : 関数 の 型 を 調べ る 
193: func->funcType = _int: 
194: breakj 
195: default : 
196: func->funcType = type: 
197: ptr = strtok(NULL, SEP): 
198: 
199: if ((func->funcName = strdup(ptr)) == NULL) 【 
299: errno = ENOMEM: 
291 : perror(Whoami): 
22: exit(1): 
293: } 
294: cnt = 朴 
295: while ((ptr = strtok(NULL, SEP)) != NULL) { 
296: if (xptr = ) 【 
297: break: 
298: } else switch (type = chktype(ptr)) { 
299: case _YOid ・ 
219: fprintf(stderr, "%s: 関数 の 引き 数 に voi 
d 型 は 使え ませ ん 。\n”, Whoami): 
91 exit(1): 
2 case _else : 
213: func->argTypes[cnt] = _int: 
214: breaki 
215: default : 関数 の 引数 の 
216: func->argTypes[cnt] = typei 型 を 調べ る 
217: ptr = strtok(NULL, SEP): 
218: } 
219: if (xptr == 7*) { 
/* & arg. is pointer */ 
229: func->argTypes[cnt] != _ptrmski 
221: } 
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222: if (++cnt == MAXARG) 【 

223: fprintf(stderr, "%s: 引き 数 の 数 は 19 個 まで で す 
o \n"。 Whoami): 

224: exit(1): 

225: } 

226: } 

227: func->argNum = cnt: 

228: 

229: 、 return func: 

239: } 

231: 

232: readHeadder(hfname) 

233: char *hfnamei 


234: { 

235: FILE *fpj 

236: int cnt: 

237・ 

238: if ((fp = fopen(hfname, "r”)) == NULL) 5 

239: fprintf(stderr, "%s: ", Whoami): 

24: perror(hfname): 

241: exit(1): 

242: } 

243: cnt = 中 ヘッ ダフ ァイル を 

244: while ((Funcs[cnt] = readFunc(fp)) != NULL) 【 読み 込む 関数 

245: if (++cnt >= MAXFUNC) 【 

246: fprintf(stderr, "%s: %s: 変換 する 関数 が 多 す ぎ 
ます 。\n”, Whoami, hfname): 

247: exit(1), 

248: } 

249: } 

259: fclose(fp): 

251: return cnt: 

252: } 

253: 


254: void makeTable(fname, cnt) 
255: char *fname: 





256: jint cnti 

257: 5 

258: FILE *fp, fp2: 

259: LDLr5 

269: 

261: if ((fp = fopen(fname, "w)) == NULL) { 

262: fprintf(stderr, "%s: ", Whoami): 

263: perror(fname): 

264: exit(1): 

265: } 

266: for (ji = 久 HEAD[i] != NULL : ji+) { 

267: fputs(HEAD[i], fp): 

268: putc("*W"。 fp): 

269: } 

279: fputs("ptr_token:\", fp): 

27 小 : for (i = 明 i<cnti it+) 【 

272: fprintf(fp。 "\tdc.b\t'%s", 旦 n"。 Funcs[i]->funcName): 
273: の テー プル 
274: fputs("tdc.b\t 鐘 n",。 fp): Me 
275: fputs("\tEVEN\n”, fp): 

276: fputs("\n\n", fp): 

277: fputs("ptr_param:\n”, fp): 

278: for (i = i<cnti ii+) ( 

2 A fprintf(fp。"\tdc.1\t%s_param\n", Funcs[i]->funcName): 
28: 

281: fputs("\n\n"。 fp): 

282: for (ji = 久 1 < cnti jr) 【 


283: fprintf(fp。"%s_param:\n”, Funcs[i]->funcName): 
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284: for (j」= 角 j< Funcs[i]->argNumi j++) 【 
0 putArgType(Funcs[i]->argTypes[j], fp): 
287: putFuncType(Funcs[i]->funcType, fp): 
288: fputs("\n\n", fp): 
289: } 
299: fputs("ptr_exec:\n”, fp): 
291: for (ji =5 1<cnti ir+) 【 
人 fprintf(fp, "\tdc.1\t%s\n", Funcs[i]->funcName): 
294: fclose(fp): 
295: } 
296: 
297: void compile(fname) 
298: register char *fname: 
299: { 
399: int i, len: 
391: 
392: len = strlen(fname): 
393: for (ij = 1i< leni 1+) 
394: if (fname[i] ==「/) cc を 使っ て ファ イル を 
395: fname[i] = " 笠 : コン パイ ル し て アセ ン 
396: switch (my_execlp("cc.x*"。 "cc",」 "/5", fname, NULL) ) 【 | プラ の ソー ス フ ァ イル 
397: case DK : を 作成 する 関数 
398: breaki 
399: case ERROR : 
31: perror(Whoami): 
311: default : 
312: exit(1): 
313: } 
314: } 
315: 
316: void assemble(sfname, dfname) 
317: register char *sfname: 
318: { 
319: register char *ipathi 
32: 
321: if ((ipath = getenv("include”)) == NULL) { 
322}: ipath = "Ai\INCLUDEP: 
323: 
324: switch (my_execlp("as.x*"。 "as”。 "7/o"。 dfname, "/i, ipath, AS を 使っ て ファ イル を 
325: ッ /W”"。"/u"。 sfname, NULL)) { | アセ ンプ ブル し て オプ ジ 
326: case DK : ェクト ファ イル を 作成 
27 breaki する 関数 
328: case ERROR : 
329: perror(Whoami): 
33: default : 
331!: exit(1): 
332: 
333: } 
334:・ 
335: void output(i, dfp) 
336: int ji 
337: FILE *dfpi 
338:【 
339: fputs("\t.TEXT\n", dfp): 
34 久 : fprintf(dfp, "\t.GLOBL\t%S\n", Funcs[i]->funcName): 
341: fprintf(dfp, "%s:\n”, Funcs[i]->funcName): 
342: fputs("\tlink\ta6,#9\n", dfp): 
343: fputs("\tmovem.1\td1-d7/a2-a5,-(sp)\n”", dfp): 
344: fputs("\tlea.1\t8(a6),a2\n", dfp): 
345: fputs("\tmoveq.1\t#9,d3\n", dfp)j 
346: fputs("\tmoveq.1\t#,d2Wn”。 dfp): 
347: fprintf(dfp, "\tmove.w\t#%d,d2\n”, Funcs[i]->argNum): /* puts 
the num. of function's args */ 
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348・ fprintf(dfp, "\tbeq.s\t %d\n",。 LabelCnt + 3): 
349・ fputs("\tsubq. 1\t#1,d2\n"。 dfp): 
35g: fputs( "taddq. 1\t#2,a2\n”"。 dfp): 
351 fputs("\tmove. 1\td2,d 時 nn",。 dfp): 
352・ fputs("\tmulu\t#19,d9\n", dfp): 
353: fputs("\tadd.1\td9,a2\n"。 dfp): 
354: fprintf(dfp,。 "%d:* 末 "LabelCnt++): 
355: fputs("\tmove.w\t(a2),d9\n", dfp): 
356: fprintf(dfp, "\tbne.s\t- %d\n”", LabelCnt): 
357: fputs("\tmovem. 1\t2(a2),d9-d1Yn", dfp): 
358: fputs("\tmovem. |\td9-d1,-(sp)\n", dfp): 
359: fputs("\taddq. 1\t#2,d9\n”, dfp): 
36: fprintf(dfp, "\tbra.s\t%d\n",。 LabelCnt + 1): 
361: fprintf(dfp,。 "%d: 末 "LabelCntr+): 
362: fputs("\taddq.1\t#1,d 旦 n",」 dfp): 
363: fprintf(dfp, "\tbeq.s\t %d\n"。 LabelCnt): 
364: fputs("\tmove.1\t6(a2),d9Yn", dfp): 
365: fputs("\tmove.1\td9,-(sp)\n”, dfp): 9 
366: fputs("\taddq.1\t#1,d3 末 "dfp): スタ ッ ク 変 換 ル ー チ ン 
367: fprintf(dfp。 7 %d: 灯 "LabelCntt+): を 出力 する 関数 
368: fputs( "tsub.1\t#1.a2\n", dfp): 
369: fprintf(dfp, "\tdbra\td2, %d\n",。 LabelCnt - 3): 
37 外 fprintf(dfp,。 "diWW", LabelCntt+): 
871: fprintf(dfp, "\tmove.1\td3,(~%d)n", LabelCnt + 3): 
372: fprintf(dfp, "\tjsr\f\t_%s\n”。 Funcs[i]->funcName): /* put 
S call asm. */ 
373: fprintf(dfp, "\tlea.1\t%d,a\n",。 LabelCnt + 2): 
374: if (Funcs[i]->funcType == _float) 
/* save ret. val. asm. */ 
375: fputs("\tmove.1\td,2(a9 の *n", dfp): 
376: fputs("\tmove.1\td1,6(a の \n", dfp): 
377: ) else { 
378: fputs("\tmove.1\td,6(a9 の \n", dfp): 
379: 
389: fputs("\tmoveq.1\t#9,d9\n", dfp): 
381: fprintf(dfp, "tmove.1\t(%d),d3\n",。 LabelCnt + 3): 
382: fprintf(dfp, "\tbra.s\t%d\n"。 LabelCnt + 1): 
383: fprintf(dfp。 "%d: 末 "。 LabelCnt++): 
384: fputs("\taddq. 1\t#4,sp\n”, dfp): 
385: fprintf(dfp,。 "%d:W"。 LabelCntt+): 
386: fprintf(dfp。 "\tdbra.s\td3,「%d\n", LabelCnt - 2): 
387: fputs("\tmovem. 1\t(sp)+,d1-d7/a2-a5 末 ", dfp): 
388: fputs("\tunlk\ta6\n", dfp): 
389: fputs("\trts\n", dfp): 
399: fprintf(dfp,。 "%d:Wn"。 LabelCntt+): 
391: fputs("\tdc.w\t 鐘 n", dfp): 
392: fputs("\tdc.1\t9, 時 nm”, dfp): 
393: fprintf(dfp,。 「%d: 条 "。 LabelCntr+) 
394: fputs("\tdc. 1\tWn", dfp): 
395: fputs("\n\n", dfp): 
396: } 
397: 


398: void convert(sfname, dfname, cnt) 
399: char xsfname, *dfname: 
4 劉 : int cnti 


4 四 : { 

492: bl お 

493: char nbuf[BUFSIZ], fnbuf[FNSIZE]: 

494: char *pi 

495: FILE *sfp, *dfpi 

496: 

497: if ((sfp = fopen(sfname, "Tr の )) == NULL) { 
498: fprintf(stderr。”"%s: ", Whoami): 
499: perror(sfname): 
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41: exit(1): 
411: } 
412: if ((dfp = fopen(dfname, ”w”)) == NULL) { 
413: fprintf(stderr, "%s: ”", Whoami): 
414: perror(dfname): 
415: fclose(sfp): 
416: exit(1) 
417: } 
418・ while (fgets(nbuf, BUFSIZ, sfp) != NULL) { 
419: fputs(nbuf, dfp): 
429: for (p = strtok(nbuf, ” \t\n”)) p != NULL: p = strtok( | ファ イル 中 に 外部 関数 
NULL, ” n"7)) 【 に 変換 する 関数 が ある 
421: if (strcmpi(p, ”".GLOBL") == の ( か どう か 調べ る 
422: y if ((p = strtok(NULL, " \t\n”)) == NUL 
L 
423: break: 
424: for (ji = 明 1< cnti i++) { 
425: if (strcmpi(p + 1, Funcs[i]->f | 在 在 し た な ら , outp ut 関数 
uncName) == の) { に よっ て スタ ッ ク 変 換 ル ー 
426・ output(i, dfp): チン を 出力 する 
427・ break: 
428: } 
429: } 
439: breaki 
431: ) 
432: } 
433: 
434: fclose(sfp): 
435: if (fputs("", dfp) == EOF) { 
436: fprintf(stderr, "%s: ", Whoami): 
437: perror(dfname): 
438: fclose(dfp): 
439: exit(1): 
44: } 
441: fclose(dfp): 
442: } 
443: 
444: void main(argc, argYv) 
445: int argci 
446: register char *argy[]: 
447: { 
448: register int cnt, ji, 了 J 
449: char *ptT, **aTgi 
45: char fntmp[FNSIZE], dry[3], path[66], name[29], ext[4]! 
451: 
452: Mt = 人 
453: if (argc < 3 
3 時 。 1 、 | 引数 を チェ ッ ク し て 正しく 
和 2 mkb headder sources.\", stderr): な けれ ば 使い 方 を 表示 する 
456: 
457: stcgfe(ext, argv[1]): 
458: if (strcmpi(ext, "mkb7) = の 【 
459: fprintf(stderr, "%s: %S は ヘッ ダー で は あり ませ ん *n", Wh 
oami, argV[1]): 
469: exit(1), 
461: 
462: for (i = 1: 1i<argci ii+) 【 
463: if ((j= stcgfe(ext, argv[i])) < 3) { 
464: if (Cptr = malloc(strlen(argv[i]) - 』+ 4)) == 
NULL) { 6 
465: errno = ENOMEN 生 状 Pe Me 
466: perror(Whoami): 重い 1 
467: exit(1): 2 
468: 
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479: 
き 71: 
472: 
73: 
474・ 
475: 
き 76: 
477・ 
478: 
479: 
48 凶 : 


りな 


481: 
482: 
483: 
484: 
485: 
486: 
487: 
488: 
489: 
499: 
491: 
492: 
493: 
494: 
495: 
496: 
497: 


498: 


LL 


499: 
599: 
591: 
592: 
593: 
594: 
595: 
596: 
597: 
598: 
599: 
51: 
511: 
512: 
513: 
514: 
515: 
516: 
517: 
518: 
519: 
529: 





strcpy(ptr, argv[i]): 
argv[i] = ptri: 
) 
} 
cnt = readHeadder(argv[1]): 
my_strmfe(fntmp, argv[1], "sch"): 
makeTable(fntmp, cnt): 
my_strmfe(argv[1], fntmp, "obj”): | 外部 関数 テー ブレ を アセ ンプ ル し て .obj” と いう 拡張 子 
assemble(fntmp, argv[1]): で オグ ジェ クト を 作成 する 
for (ji = 2 j < argci ir+) 【 
stcgfe(ext, argv[i]): 


) 1 0 1 あし 馬 引数 の 拡張 子 が ~.c” か ^.bas" 
if (strcmpi(ext, "oc") == Il strcmpi(ext, "bas") == 9 Rh 2 ce 


ヘッ ダフ ァイル を 読み 込ん で `~ .sch” と いう 拡張 子 で 
外部 関数 テー ブル を 作成 する 


compile(argv[i]): 
strsfn(argv[i], drvy, path, name, ext): 
strmfn(argv[i]。 7" の ツ 。 name, "sch”): 
my_strmfe(fntmp, argv[i], "s”): 

}) else if (strcmpi(ext, "s") == 9) { 
my_strmfe(fntmp, argv[i], "s”): 
strsfn(argv[i], drv, path, name, ンク 


アセ ンプ ブラ の ソー ス (~.s* ) を 外部 関数 の 
ソー ス (~.sch” ) に 変換 する 





strmfn(argv[i],。 "の"。 name, "sch”): | 外部 関数 の オプ ジェ クト (^.obj ) を 作る 
) else { 


continuei 


conyert(fntmp, argv[i], cnt): 
strcpy(fntmp, argv[i]): 
my_strmfe(argy[i], argv[i], "obj"): 
assemble(fntmp, argv[i]): 


if ((arg = (char **)malloc((argc + 4) * sizeof(char *))) == NU 


(arg[1] = (char *)malloc(strlen(argv[1]) + 5)) == NULL) { 
errno = ENOMEM: 


perror(Whoami): 

exit(1): 
arg[9] = "cc.x": 
arg[1] = fntmp: 
strcpy(arg[l], 「/27): 
strcat(arg[1], argv[1]): 
my_strmfe(arg[1], arg[1], "fnc”): 
arg[2] = "/W": 
arg[3] = "/Y": 
for (ji = 1: 1 <argci it+) 5 

arg[i + 3] = argv[i]ij 

作成 し た オプ ジェ クト (`_.obj' ) 

arg[i + 3] = NULL: を リン ク す る 
switch (execvpe(arg[ 明 , arg, NULL)) 5 
case OK : 

exit(9): 
case ERROR : 

perror(Whoami): 
default : 

exit(1): 
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mkb を 使う た め に は 。 コマ ンド ライ ン か ら 次 の よう に 入力 すれ ば OK で す . 
mkb <mkb 用 ヘッ ダフ ァイル 名 > < 関数 の ファ イル 名 1> < 関数 ファ イル 名 2> 


作成 され る 外部 関数 ファ イル の 名 前 は ,。 mkb 用 ヘッ ダフ ァイル の 名 前 と 同じ (拡張 子 は FNO) 
に な り ま す . も ちろ ん , 1 つの 外部 関数 ファ イル に 複数 の 外部 関数 を 保存 する こと が で きま すし , 
1 つの ソー ス フ ァ イル に 複数 の 関数 を 書い て お いて も か まい ませ ん . 

さて , コマ ンド ライ ン で 指定 し た mkb 用 ヘッ ダフ ァイル と は , 外部 関数 に する 関数 に つい て の 
情報 を 記述 し た ファ イル の こと で , mkb は この ファ イル の 情報 を も と に 外部 関数 を 作成 し ます . 
その 内 容 は 次 の よう な も の で , 戻り 値 の 型 と その 関数 名 。 そし て 必要 と する 引数 の 型 を 書い て お 
きま す . 


< 関数 の 戻り 値 の 型 > < 関数 名 > (引数 1 の 型 引数 1 の 名 前 , 引数 2 の 型 引数 2 の 名 前 , …) : 


この ヘッ ダフ ァイル で 使用 で きる 型 は 表 5.3 の と お り で す . 


戻り 値 に 使え る 型 int 型 , str 型 , float 型 , void 型 





int 型 。 char 型 , str 型 , float 型 
お よび それ ら の 型 へ の ボイン タ 


引数 の 型 と し て 使え る 型 





表 巳 .3 ヘッ ダフ ァイル で 宣言 で きる 型 


ポイ ンタ 型 を 使う に は , “char * 引 数 名 ′ と し ます . この と き ~*? と 引数 名 ′ と の 間 に ス 
ペー ス を 空け て は いけ ませ ん . また , X-BASIC と C 言語 と の 間 で は 。str 型 や float 型 の ポイ ン 
タ の 取扱 い に 違 い が あ り ま す .X-BASIC で いう ポイ ンタ は , C 言語 で いう ポイ ンタ の こと で は な 
く , 双 -BASIC 内 部 で の デー タ を 保持 し て いる アド レス の こと で す . その デー タ 構 造 に 対応 し て 外 
部 関数 を 作成 する こと も 可能 な の で す が , C 言語 か ら 使 を な く な っ て し まう と いう 上 弊 害 が 出 ま す 
し , それ ほど 頻繁 に 使わ れる も の で は あり ませ ん . 

また , 外部 関数 か ら CLIB, BASLIB, DOSLIB や IOCSLIB な どの ライ ブラ リ 内 の 関数 を 使う 
こと も で きま す が , これ は あく まで でき る” の で あっ て ,。 それ が 正しく 動作 する こと を 保証 し 
て いる わけ で は あり ませ ん . 

それ で は 実際 に , C 言語 で 書か れ て いる 関数 を X-BASIC の 外部 関数 に 変換 し ます . ここ で は 
グラ フィ ッ ク 画 面 の 任意 の 短 形 領域 を 圧 緒 し て セー ブ す る と いう 関数 と , その 圧縮 し て セー ブ し 
た デー タ を 任意 の 座標 か ら ロ ー ド する と いう も の で す . 

X68000 で は , 65,536 色 モ ー ド の と き , グラ フィ ッ ク 画 面 の 1 ドッ ト は 1 ワー ド で 表 さ れ ま す . 
つま り , グラ フィ ッ ク 画 面 の 短 形 領域 は 。 1 ワー ド の デー タ の 集まり と みな すこ と が で きま す . 画 
面 を 圧縮 し て セー ブ プ す る と いう こと は , 同じ デー タ が 連続 し て いた ら , いく つ 同 じ デ ー タ が 連続 
し て いる の か , と いう 情報 に 変換 する こと で す . 
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この 庄 縮 方 法 は 。 タイ リン グ に よる 中 間 色 の よう に 同一 デー タ の 連続 が 少な い グ ラフ ィ ッ ク 
テー タ に は 向い て いま せん . し か し , X68000 の よう に , 使え る 色 数 が .65.536 色 も ある と 中 間 色 な 
こ を 使う こと は な いと 思い ます の で , 十分 な 効果 を 得る こと が で きま す . た だ し 。 これ ら の 関数 
は 解 倫 度 512X512 ドッ ト , 65.536 色 モ ー ド の グラ フィ ッ ク 画 面 に し か 使え ませ ん . 

リス ト 5.7 が セー バ , リス ト 5.8 が ロー ダ の ソー スプ ログ ラム で す . これ ら の 関数 の 仕様 は 表 
5.4 に 示し ます . 


リス ト 5. フ ヘッ タラ ァ ィ ル (glsh) 


#define GRPSTART (ushort *)8xc99999 

・ #define GRPEND (ushort *)gxc89999 

#define SPECCHR 

#define BUFSIZE gx992999 

#define WMODE (0_WRONLY | 0_BINARY 0_.CREAT ! 0_TRUNC) 
・ #define RMODE (0_RDONLY 」 0_BINARY) 

#define PMODE (S_IREAD | S_IWRITE) 

#define XMIN 

: #define YMIN 9 

・ #define XMAX 511 

・ #define YMAX 511 

・ #define XSIZE 512 

・#define YSIZE 512 

・#define NOERR 凡 

・ #define ERFILE  -] 

・ #define ERADR = 

・ #define USMAX ((1 << sizeof(ushort) * 8) - 1) 
・#define forever for (::) 


+ー ュー 
ーー 選 ぐつ コ の mm は coko と 


5 と ニャ ー テー に に と っ に ュー 
So ぐ - コ の の ト coko 


・ typedef unsigned short ushort: 


ーーーーーーーーーーーーーーーーーーーーーーーーー、、、、。。 00 ク 0 ク nn へ OO 


ブス ト 三 日 mkb の た め の ヘ ッ ダ ファ イル (glsb.mkb) 


1: int gload(str fname, int x, int y): 
2: int gsave(str fname, int xint yint xi, int y1): 


ーーーーーーーーーーーーーーーーーーーーーーー フ ーー パパ パパ パパ 0 ハク ハハ 


リス ト 盛 . クラ フィ ッ ク セ ー バ (gsave.c) 


・ #include <stdio.h> 
#include <fcntl.h> 
・ #include <stat.h> 
・#include <io.h> 
#include "gls.h”" 


Int gsave(fname, x9, y9, x1, y1) 
char *fTnamei 
・ Int xy x1, yi 


ushort buffer[BUFSIZE], *bufend: 
int xsize, ysize, fd, stack: 


トー トー ーー ーー 
CS 一 選 で Go の コ の mcokto 一 
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ト 〇 


14: register ushort *gTp, *gTpehnd: 
15: register ushort *buf: 
16: register int ch 
19 register int diffj 
18: register int cnt: 
19: register int xcnt: 
29・ 
1 if (CX9 < XMIN | XNAX < xD ロロ (Gx1 <XMIN II XNAX < x1) 
22: (y9 < YMIN | YNAX < y9) 1 (y1 < YMIN 1 YMNAX < y1) 日 まき ない 
23: 1 < xD 1 (Gy1 < y の ) 1 
24: return ERADRj 
25: if (x9 == xl Il y9 == y1) 
26: return ERADR: 
27・ if (Cfd = open(fname, WMODE, PMODE)) == -1) { 
28: return ERFILE: 
29: }) 
93: stack = SUPER( の : 
31: buf = bufferi 
32: bufend = buffer + BUFSIZE - 19: 
33: *buf++ = XSize = Xl -x9+1: | a 
2 半 0ft ぼ ya126 91ー 9P13 1 
35・ grp = GRPSTART + y9 * XSIZE + x の 
36: grpend = GRPSTART + yl * XSIZE + xl 
37・ diff = XSIZE - xsizej 
38: ch = ffffffffj 
39: cnt = 吸 
49: forever { 
41: xcnt = XSi2ei 
42: while (xcnt-- != の 【 
43: if (grp > grpend) 
44: goto abort: 
45: if (ch != *grp II cnt == USMAX) { 
46: if (cnt >= 3) 【( 
人 CM POON emumー ァ ー ァ 298 
49: *buf++ = chi ak 
59: ) else { 
51: while (cnt--) { 
52: *buf++ = ohi 
・ 1 Ga | 同一 デー タ が 1 度 か 2 度 し か 
4 員 半 NN | い て いな い 場 合 , そ の まま 出 カ 
55: } 
56: } 
57: if (buf > bufend) 【 ] 
58: if (write(fd, buffer, (cnt = (buf - buffer) * size 
of(ushort))) < cnt) バッ ファ に 余 給 が 
59: goto error: | な い 場合 パッ フ 
69: buf = buffer: | ァ を 書き 出す 
61: 
62: ch = *gTDpi 
63: cnt = 1 
64: ) else { 
65: cnt++5 
66: 
67: gTP++5 
68: 
69: gTPD += diff5 
79: 
71: abort: 
7 の if (cnt >= 3) { 
73: *buf++ = SPECCHR: 
74: *buf++ = cnti 
75・ *buf++ = chj 
76: }) else 【 
2Z 
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。 while (cnt--) { 

78: *buf++ = ohi 

79: if (ch == SPECCHR) 

38: *buf++ = chj 

81: }) 

82: } 

83: if (write(fd, buffer, (cnt = (buf - buffer) * sizeof(ushort))) < c 
nt) 

84: goto erTOTj 

85: close(fd): 

86: SUPER(stack): 

87: return NOERR: 

88: error: 

89: close(fd): 

98: SUPER(stack): 

31・ return ERFILE: 

92: } 

93: 

94: #ifdef DEBUG 

95: main(argc, argv) 

96: int argci 

97: char *argv[]j 

98: 

89 int ji 

199: 

191: 1 = gsave(argv[1], 9, 9, 511, 511): ヽ CC gsave.c /DDEBUG /W 

192: switch (ji) { し て コン バイ ル し た 場合 に は 画面 

193: case ERFILE・ 全体 を gsave す る プロ グラ ム に な る 

194: fputs(" フ ァイル が 異常 で す \n”, stderr): 

195: break: 

196: case ERADR: 

197: . fputs(" 範 囲 指 定 が 異常 で す *m", stderr): 

198: breaki 

199: ) 

119: } 

111: #endif 


バ パッ ツ フ ア 中 に 
残っ て いる デ 
ー タ を 出力 


ヶ と 





リス ト .] グラ フィ ッ ク ロ ー ダ (glaad.C) 


oo ぐ - コ の mm 愉 cktOー 


#include <stdio.h> 
#include <fcntl.h> 
#include <stat.h> 
#include <io.h> 
#include <graph.h> 
#include <basic9.h> 
#include "gls.h" 


int gload(fname, x, y) 


19: char *fname: 

115 int X。 め % 

12: 

13: ushort buffer[BUFSIZE]: 

14: int fd, stack, xsizei 

15: register ushort *grp, *]| inendi 

16: register ushort *buf, *bufendi 

17: register ushort chi 

18: register int cnt, xcnt, ycnt, diffi 
19: 

29: if ((x < XMIN 1 XNMAX < x) 1 (y < YMIN 1 YNAX < y)) 
2 return ERADR: 
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22: if ((fd = open(fname, RMODE)) == -1) 

23: return ERFILE: 

24: stack = SUPER( の : 

25* if (Ccnt = read(fd, buffer, BUFSIZE * sizeof(ushort))) <= の 
26: goto erTOT: 


27: bufend = buffer + cnt / sizeof(ushort) - 2: 

28: buf = buffer: 

29: cnt = 久 

3 xcnt = xsize = *buf++: | gad す る 範 較 を 入力 する 

31: ycnt = *buf++: 

32: grTp = GRPSTART + y * XSIZE + 5 

33: linend = GRPSTART + y * XSIZE + XSIZE: 

34: diff = XSIZE - xsizei 

35: while (ycnt-- != の 【 

36: while (xcnt-- != 9) { 

37 if(cnt = の 【( 

38: (Ob 

39: }) else 【 

4 外 if (buf >= bufend) 【{ 

41: lseek(fd, (buf - (bufend + 2)) * sizeof(ushort), 1 
8 

42・ if ((cnt = read(fd, buffer, BUFSIZE * sizeof(ushor バッ ファ 中 に 必要 な デ 
1))) <= の ー タ が な い 場 合 に ファ 

43: goto errori イル か ら 読 み 込む 

44:・ bufend = buffer + cnt / sizeof(ushort) - 2: 

45: buf = buffer: 

46: cnt = 久 

















} 
48: if ((ch = *buf++) == SPECCHR) { 
49: if ((cnt = *bufr+) != SPECCHR) { 
59: ch = *buf++5 
51: BE 
52: ) else { 
53: cnt = 中 
54: } 
55: } 


バッ ファ 中 の デー タ を 出力 する 





) 
57: if (grp < linend) /* クリ ッ ピ ング */ 
58: *gTD = Chi 
59: gTP++) 


61: Xcnt = XSsizei 
62: gTP += diffi 

63: linend += XSIZE: 
64: if (grp >= GRPEND) 
65: breakj 

66: } 

67: close(fd): 

68: SUPER(stack): 

69: return NOERR: 

79: error: 

7 時 close(fd): 

7 の 8 SUPER(stack): 

73: return ERFILE: 


76: #ifdef DEBUG 

77: main(argc, argYv) 
78: int argei 

79: char *argv[]: 


81: int jij 
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5.2 複数 の 言語 を 使っ た プロ グラ ミン グ 








本 Ma 93.1 1D: Ycc gload.c /DDEBUG /W /Y” と し て 
85: i = gload(argv[1], 時 の : Rn 
88: gwitoh (1) ( こ gload す る プロ グラ ム に は る 

87: case ERFILE: 

88: fputs(" フ ァイル が 異常 で す 末 ", stderr): 

89: breaki 

99: case ERADR: 

91: fputs(" 範 囲 指 定 が 異 党 です”, stderr): 

92: breaki 

93: } 

94: } 

95: #endif 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー…ー…ーーーーーーーーーーーーーーーーーーーーーー…… 


int gsave (name, x0, y0, x1, y1) : 





数 


Char * name: 
int x0, y0, x1, y1: 





0 : 正常 終了 


デー1 ュ ジア イル アク セス ・ 王 ラー 
ー2 : 知 形 領域 の 座標 が 異常 
ーー 











x0, y0, y0, y1 の 示す 知 形 領域 の グラ フィ ッ ク デ ー タ を 圧縮 し , name と いう ファ イル 名 の ファ イ 
ル に 格納 する (65, 536 色 モ ー ド に し か 対応 し て いな い ) 








int gload(name, X, y) : 


















引 | Char MR063 
int x, y: 
・ LU の 
戻り 値 0 : 正常 終了 






デ 1S プア イル アク セ ズ ー エ ラー 











機 能 





name と いう 名 前 の ファ イル か ら デ ー タ を 読み 込み , 展開 し て x, y を 左上 と する 知 形 領域 に クリ ッ 
ピン グ し て 表示 する (65, 536 色 モ ー ド に し か 対応 し て いな い ) 









表 5.4 グラ フィ ッ ク セ ー バ と グラ フィ ッ ク ロ ー ダ の 仕様 
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マン ドラ イン で は , 次 の よう に mkb を 起動 し て くだ さい . あと は glsb.fnc と いう 條 部 関数 
ファ イル が で き あ が る の を 待つ だ け で す ( 図 5.11). 


mkb glsb.mkb gload.c gsave.c 


mkb の た め の ンー モニカ ンー デー アラ 
フッ ダフ ァイル mm と ss 


glsb.mkb gload .c 


と ーー ーー ニー ジン 
[esap-s ル 


I 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
I 
| 








リン カ 





glsb.fnc 





図 .1 1 外部 関数 が で きる まで の 流れ 
今度 は これ を X-BASIC に 組み 込ま な けれ ば な り ま せん . シス テム ディ スク の BASIC2 ディ レ 
クト リ の 下 の BASIC.CNEF を , リス ト 5.11 の よう に 変更 し て くだ さい . そし て , いま 作成 し た 


glsb.fnc を シス テム ディ スク の BASIC2 ディ レク トリ の 下 に コピ ー し て くだ さい . 


リス ト . ] ] BABIO.CNF の 変更 


1: FREE = 128 

2: WIDTH = 64 

3: BEEP = ON 

4: CAPS = OFF 

5: FUNC = AUDIO 
6: FUNC = GRAPH 
7: FUNC = MOUSE 
8: FUNC = MUSIC 
9: FUNC = SPRITE 
19: FUNC = STICK 
11: FUNC = IMAGE 
12: FUNO。 ミ 。 六 LSb | 今回 作成 し た 外部 関数 





ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーmーmーーーーーー 





5.2 複数 の 言語 を 使っ た プロ グラ ミン グ 


次 に X-BASIC を 起動 し た 後 。 ダイ レク トモ ー ド で 以下 の よう に 入力 し て み ま し ょ う . 


screen 1, 3, 1, 1 

line (0, 0, 255, 255, 65535) 
gsave('test, 0, 0, 255, 255) 
gload('test ', 256, 0) 


する と , 最初 に 引か れ た 線 を test と いう ファ イル に 圧 緒 セ ー プ し て , その デー タ を 他 の 座標 か 
ら ロ ー ド し ます . これ ら を 実行 し た 後 の 画面 上 に は 斜線 が 2 つ 表 示さ れ て いま す ( 画 面 5.1). 





画面 局 .] gsavg 関数 と 叫 IOad 関数 の 実行 例 


mkb の 使い か た と し て , X-BASIC で プロ グラ ム を 作る と 遅く な っ て し まう 関数 を 外部 関数 に 
し て 速度 を 上 げ る こと も で きま す . その 場合 は , まず 外部 関数 に し た い 関 数 だ け を 取り 出し て 別 
の ファ イル に 格納 し ます . そし て mkb 用 ヘッ ダフ ァイル を 記述 し , その ヘッ ダフ ァイル と 関数 の 
ファ イル か ら , 外部 関数 を 作り ます . あと は その 外部 関数 を X-BASIC に 組み 込む だ け で す . 

さき ほど も 説明 し た と お り , 同じ ソー スプ ログ ラム か ら ラ イブ ラリ と し て も 保存 で きま す ( 図 
5.12)、 ア ー か イル “岩合 て 次 の まう に ライ ブラ リ り に し ます 。 


cc グ M ノ /L グ O gload.c gsave.c 


ar a: ぎ \Ib\usrlib.a gload.o gsave.o 


これ で , usrlib.a ライ ブラ リ に gsave 関数 と gload 関数 が 登録 きれ まし た . この あたり も , バッ 
チ フ ァイル に し て お く と 便利 で し ょ う . 
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os 2 
本 m ル / 合 ル 
saas [sswesD 
C コ ン パ イラ 
キー SG も 
KK 50 ゃ 3 
l アセ ンプ ブラ 
の ニニ ニー ニー グ 1 
[se ee 








新しい usrlib . a 
gload , gsave . o 
人 4 が 登録 され た 





図 5.1 己 ライ ブラ リ 化 の 流れ 


この 2 つの 手順 を 行っ て お け ば , X-BASIC と C 言語 と も に 同じ 仕様 の 関数 が 追加 され て いる 
こと に な り , まっ た く 同 じ 環 境 で 作業 を する こと が で きま す . 


画 X- 選 AI か ら 〇 言語 の 関数 を 使う 

今度 は , 外部 関数 を 使っ た X-BASIC の プロ グラ ム を 変換 し て み ま し ょ う .X-BASIC の 関数 呼 
出し を BASTOC で 変換 する と , 文末 に セミ コロ ン を つけ る 処理 し か し ませ ん . これ を 利用 する 
と , X-BASIC の プロ グラ ム 中 で , ライ ブラ リ 内 の 関数 を 呼び 出す 記述 を する こと が で きま す . 当 
然 ,X-BASIC 上 で は 動作 し な い プ ログ ラム に な り ま す が , コン パイ ル 後 に は 問題 な く 動作 する プ 
ログ ラム に な り ま す . た だ し , 関数 の 戻り 値 の 型 宜 言 は で きま せん か ら 。 浮動 小数 点 型 の 値 を 返 
す 関 数 の よう に , 使え を ない 関数 も あり ます . 

それ で は , gsave 関数 と gload 関数 を , さきほど の グラ フィ ッ ク エ ディ タ に 組み 込ん で みる こと 
に し まし ょ う 。 

まず , さき ほど の グラ フィ ッ ク エ ディ タ を 次 の よう に 変更 し て くだ さい 、。 


284 行 【 変 更 前 】 if img load(fname) <> 0 then beep 
【 変 更 後 】 if gload(fname, 0, 0) < > 0 then beep 


296 行 【 変 更 前 】 if img save(fname) <> 0 then beep 
【 変 更 後 】 if gsave(fname, 0, 0, 511, 511) <> 0 then beep 


プロ グラ ム を 変更 し た ら , コン パイ ラド ライ バ を 便 っ て , 次 の よう に コン パイ ル し て くだ さい 。 


cc 0 プ Y gedb.bas usrlib.a 
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5 複数 の 言語 を 使っ た プロ グラ ミ ンク: 


ここ で 使っ て いる バン Y? オ プシ ョ ン は ,。 usrHhb.a に 格納 され て いる gload 関数 と gsave 関数 が , 
DOSLIB.A を 使っ て いる た め に 必要 な も の で す ( 図 5.13). 


で 人 5 ネン / 
sea-ss 


BASTOC コ ン バ ー タ 





0 ノ ーッ グ ノ / 
ems ルリ [sem レル 
ン 男 








5.13 コン パイ ル の 流れ 


この プロ グラ ム を gload 外部 関数 と gsave 外部 関数 を 組み 込ん だ X-BASIC 上 で 実行 し て み 
て くだ さい . 

ここ で ,。BASTOC か ら 新 し い 関数 を 使っ て いる の に , .DEF ファ イル を 定義 し て いな か っ た こ 
と に 気づか ふれ た か も し れ ま せん . .DEF ファ イル と は , 型 変換 を BASTOC で 自動 的 に 行う た め に 
必要 な ファ イル の こと で す .。 し か し , 定義 され て いな く て も , 自動 的 な 型 変換 を 行わ な けれ ば 問 
題 あ り ま せん し , 関数 か ら の 戻り 値 の 型 宣言 な どの よう に 重要 な 部 分 は , .DEF ファ イル だ け で は 
対応 で きま せん . この 章 で 紹介 する 関数 は すべ て , 一 般 的 に は 型 変換 の 必要 は あり ませ ん か ら . 
DEF ファ イル を 定義 し て いな い の で す . 


ら 5. 選 己 〇 言語 を 中 心 と し た プロ グラ ミン グ 

C 言語 を 手足 の よう に 使い こなせ る 方 は , 他 の 言語 の 必要 性 を あま り 感 じ な いか も 知れ ませ ん . 
し か し , プロ グラ ミン グ の 効率 を 考え る と や は り 複 数 の 言語 を 使っ た プロ グラ ミン グ の メリ ッ ト 
を 忘れ る わけ に は いき ませ ん . それ で は CC 言語 を 中 心 と し た 複数 の 言語 に また が る プロ グラ ミ > 
グ に つい て 解説 する こと に し まし ょ う . 


画 〇 言語 か ら X-BASIC の 関数 を 使う 
C 言語 を 中 心 と し て プロ グラ ム を し て いる 方 に と っ て は , な ぜ わ ざわ ぎ BASIC を 使わ な けれ 
ば な ら な い の か 疑問 に 思う か も し れ ま せん . し か し , C 言語 か ら は 面倒 な 処理 を 。 BASIC で テス 
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ト し て か ら 組 み 込 むと いう よう な テク ニッ ク を 使っ た 場合 に 有効 な 方 法 と な り ま す . 
X-BASIC の プロ グラ ム は , BASTOC コン バー タ を 使っ て C 言 語 に 変換 し て し まえ ば ぱ ば , C 言語 
で 書い て ある 他 の ファ イル か ら 呼 び 出 し た りす る こと は 容易 に で きま す . た だ し , 注意 し な けれ 
ば な ら な い の は , BASTOC コン バー タ で 変換 され た プロ グラ ム に は main 関数 が 作成 され て し ま 
うと いう こと で す (X-BASIC の プロ グラ ム の 変数 宣言 の 終わ りか ら 最 初 の func 文 の 直前 まで 
が , C の main 関数 に 変換 され る ). しかし, 純粋 な 関数 だ け の ファ イル で あれ ば , main 関数 は 作 


られ ませ ん . 


それ で は , 実際 に X-BASIC で 関数 を 作り C 
目的 の 色 を 選ぶ 関数 (getcl 関数 ) を 作っ て み ま し た . この getcl 関数 








例 と し て 。 マ ウス を 使っ て 








言語 か ら 使っ て み ま す (リスト 5.12). ここ で は 





を 呼出 す C 言 語 の プロ グラ ム は リス ト 5.13 で す . 


リス ト 盛 . ] 性 マウ ス を 使っ た 色 選 択 (etcl.Dag) 


1: func int getcl(cciint) 


























2: jint x, y, right, left, mst 
3: int G,。 R, B, 1, look, i 
4: mSt = mouse(3) : mouse(1) : mouse(4) | ウス の 初期 化 
5 color[,,cc] | - 
6: locate 19, 29: print "R G B I" 
7 locate 19, 21 : print " 旨 
8: locate 19, 22 : color 19 : print 
9: locate 19, 23 : print ”" 7 color 3 2 
18: locate 26, 29: print "R” | 
11: locate 26, 21 : print "G" 
]2: locate 26, 22 : print ?B” 
13: locate 26, 23 : print "1” 
14: (6 聞 ee shr 11) and &HIF 
15: R=(ccshr 6) and &HIF っ 
16: 5B= Coeo shn1):end AF | に 2 
17: | = cc and &H1 ] 
18: look = | 
19: locate 3 29 | 
2: for i=ltoR: print "*i : next | 
21: locate 3!, 21 | 
22: for i = ]1toG: print "*":) : next | 色 コ ー ド に 従っ て `*? を 表示 する 
23: locate 39, 22 
24: for i=1toB: print "*Pi | next 
25: locate 3 23 
26: if | then print "*" 
27・ repeat 
28: locate 19, 21 : print using " 拉 埋 拉 RGLB EE の 0 色 要 素 の 表示 
29! color[,, ce] ………|… ド | パレ ッ ト と 変更 
3: msstat(x, y, left, right) : mspos(x, y) ] 
1: if x <23!then x = 23! : setmspos(x, ゞ ) 
32: if 485 < x then x = 485 : setmspos(x, y) [| マウ ス が 範囲 外 に 出 な いよ うに する 
33: if y < 321 then y = 32 : setmspos(x, y) | 
34: if 384 <y then y = 384 : setmspos(x, y) 」 
35: if left then 5 
36: if look =then { 
7: y=y/16 変更 する 色 要 素 の 選択 
38: look = y - 19 
39: } 
49: if look <> then { 
41: x =(x - 23D/8 
42: switch look | 
280 


5.2 複数 の 言語 を 使っ た プロ グラ ミン グ 








43: caSe 1 

44: R=x 

45: locate 39, 29 

46: for i=1toR: print "*Pi inext 
47: print space$(32 - j) 

48: break 

49: Case 2 

59: G=x 

51: locate 39, 21 

525 for i=1toG: print "Pi inext 
53: print space$(32 - ji) 

54: break 

AA 8 色 要 系 の 変更 
575 locate 3 22 

58: for ij=1toB: print "*Pi : next 
59: print space$(32 - i) 

69: break 

61: case 4 

62: locate 39, 23 

63: ifx>then{ 

64: | = 1 

65: print "*" 

66: ) else { 

67: 1 = 

68: PPin も 羽 

69: 

79: break 

に endswitch 

2 

8 ) else 【{ 

74: look = 

75: } 

76: cc = (G shl 11) or (R shl 6) or (B shl 1) or | 
補 75 until right 

78: ifmst =then mouse(2) ………… マウ ス の 状態 を 元 に 戻す 
79: cls 

8 久 return(cc) ………… 色 要素 か ら 色 コ ー ド を 求め る 

81: endfunc 


ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーTT 


リス ト 嘱 . ] getcl 関 数 の 呼出 し (Color.C) 


1: #include <stdio.h> 

2: #include <iocslib.h> 

28 

4: main() 

5: 

6: int jj 

が 

8: puts(”"33[2J あ な た の お 望み の 色 は な ん で すか ? ツ : 

9: cdgetek(6B9850aS 柚 m で に ョ ュ ュ コ 有 束 届 可 色 を 求め る 
19: printf(”" あ な た の お 望み の 色 の コー ド は %d で すね 9?\n”,」 ij): 

11: TREE 0 画面 上 の 色 パ ター ン を 変更 する 
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int getcl(color) : 





int color: 

新しい カラ ー コ ー ド 

color の カラ ー コ ー ド を 基 に し て , 新しい カラ ー コ ー ド を マウ ス て で 設定 させ る ( 左 ボ タン で 設定 , 右 
ボタ ン で 終了 ) 














表 選 .5 getcl 関 数 の 仕様 


2 つの ファ イル が そろ っ た と こと ろ で , コン パイ ル し て み ま し ょ う . と と で も コン パイ ラド ライ バ 
を 使い ます . 


cc / グ 0O グ Y color.c getcl.bas 


で き あ が っ た color.x を 実行 する と , すぐ に getcl 関数 に 制御 が 移り ます . getcl 関数 は , 画面 
下部 左側 に は カラ ー コ ー ド と , その カラ ー コ ー ド に 対応 し た 色 の 四角 を 表示 し ます . また 画面 下 
部 右側 に は RGBI と いう 文字 と , いく つか の * を 並べ て 表示 し ます . * 印 は , 現在 表示 され て い 
る 色 の カラ ー コ ー ド を RGBI に 分 解 し た 値 だ け 表 示さ れ ま す . 

左 ボ タン を 押し な が ら マ ウス を 動か す と , リア ル タ イ ム で ※* 印 が マウ ス の 指し て いる 場所 まで 
伸び 縮み し て , 画面 下部 左側 の 数 値 と 色 も 変わ り ま す . 好み の 色 に な っ た な ら 右 ボタ ン で 終了 し 
ます . そう する と この color.x が .。 そ の と き に 表示 し て いた 色 の カラ ー コ ー ド を 表示 し て , それ 以 
後 表示 する 文字 の 色 を 指定 し た 色 に 変更 し ます . 

動作 の 確認 が で きた と ころ で , この 関数 を ライ ブラ リ に し て お きま し ょ う . 


ar a:\ 是 b\usrlib.a getcl.o 


画 〇 言語 か ら ア セン ブラ の プロ グラ ム を 使う 

C 言語 か ら ア セン ブラ で 書か れん た プロ グラ ム を 使う こと は , 他 の C 言 語 処理 系 で も 可能 で す . 
X68000 は せっ か く 68000CPU を 搭載 し て いる の で すか ら , ア セン ブラ で CPU を 直接 操作 し て み 
た いと いう 方 も いる か も し れ ま せん . し か し , 本 書 で は アセ ン ブ ラ や CPU の 詳細 な 知識 を 前 提 と 
せ ず に 話 を すす め て いま す の で , 一 般 的 な 注意 点 と か ん た ん な 事例 で その 雰囲気 だ け を 感じ て お 
く こ と に し ます . 

そもそも CC 言語 は ,。 レジ スタ や スタ ッ ク を 直接 扱え な い の で , C 言語 か ら ア セン ブラ の 関数 を 
呼ぶ と きも , アセ ン ブ ラ から C の 関数 を 呼ぶ と きも アセ ン ブ ラ で 整合 性 を と っ て や ら な けれ ば な 
り ま せん . 

C 言語 か ら ア セン ブラ の 関数 を 呼び 出す 場合 は , 以下 の 規則 に 従う 必要 が あり ます . 





・ 引 数 を 正しく 受け 取る 
・ 戻 り 値 を 正しく 渡す 
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・ レ ジス タ を 壊さ な い 
・ 関 数 名 を 正しく 宣言 する 


逆 に , アセ ンプ ブラ か ら C の 関数 を 呼び 出す 場合 は , 以下 の 規則 に 従わ な く て は な り ま せん . 


・ 引 数 を 正しく 渡す 
・ 戻 り 値 を 正しく 受け 取る 


この あたり に つい て は , C ユ ー ザ ー ズ マニ ュ ア ル の 67 ペー ジ か ら 79 ペー ジ に 詳し い 解 説 が あ 
り ま すか ら , より 深く 理解 し た い 方 は 参考 に する と よい で し ょ う . 

アセ ン ブ ラ の プロ グラ ム の 例 と し て doline 関数 と dobox 関数 と いう , グラ フィ ッ ク 画 面 に 論 
理 演算 を ほど こす タイ プ の Hine 関数 と box 関数 を 作っ て み ま す (リス ト 5.14). な お ,。 この プロ 
グラ ム は 関数 だ け で で き て いま す の で , コン パイ ル し 実行 きせ る こと は で きま せん . 次 の 節 で 紹 
介する 強化 版 グ ラフ ィ ッ クエ ディ タ を つく る と き に , ライ ブラ リ と し て 利用 する こと に し ます . 


リス ト 盛 . 1 イ doline 関数 と dobox 関数 (dO.S) 


1: * doline(x1, y1, x2, y2, col, mode) 
2: * dobox(x1, yl1, x2, y2, col, mode) 
3: * for C's functions. 

4: * mode ・ 9 put 

5: * ・1 or 

6: * ・2 and 

7: * ・ 3  XOr 

8: * ・4 reset 

9: * 5 5 。 not 

19: 

11: include iocscall.mac 
12: 

7 0 中 この ファ イル 全体 に 対す る レジ スタ 宣言 
15: 

16: * 

17: * doline(x1, y1, x2, y2, col, mode) 
18: * 

19: 

29: ALLREG Teg d3-d7 

21: dd Teg d1 

22: px Teg d2 

23: py Teg d3 

24: 

25: x1 Teg d9 

26: y1 Teg d1 

27: x2 Teg d2 

28: y2 Teg d3 

29: dx Teg d4 

39: dy Teg d5 

31: col Teg d6 

32: mode Teg d7 

33: 


34: yoff Teg a2 
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36: include doscall.mac 

37・ 

38: .text 

39: 

49: .globl| _doline 

41: _doline: link fp,#-6 レジ スタ の 保存 , 6 バイ ト の バッ ファ 確保 
42: move.| sp,gptr 

43: movem.| ALLREG,-(SP) 

44: IOCS _POINT グラ フィ ッ ク 画 面 が 使用 で き 

45: tst.] dg な けれ ば ー1 を 返す 

46: bmi lineexit 

47・ movem.| 8(fp),x1/y1/x2/y2/col/mode ………… 引数 を 受け 取る 
人 M MP dot ル ー チ ン 用 に mode を 計算 し な お す 

59: move.| x2,dx 

518 sub.|  xl,dx dx = X2 - x1 も 
52: bpl.s next 9 
53: neg.| dx dx = Idxl 

9 eX5 XuX2 | .」 2 と な る よう に 庫 標 を 入れ 換え る 

55: eXg yly22 

56: next: move.| #l,yoff 

57: move.| y2,dy 

を MP 4 dy = Iy2 - ylI dy と y2 一 y1 の 符号 を 求め る 
69: move.| #-1,yoff 

61: neg.| dy 

62: next2: move.W x1l,(gptr) | 、 っ し に ム め る 座標 を 代入 

63: move.W yl,2(gptr) (SAC6 こ ーー ニー 

64: tst.| dx SS es 

65: beq yline 1 9 

2 9 8 0 な 本 隊 才 の ルー チッ ンド 

68: move.| dX,pX PX =2* dx 

0 Se py = 2 * dy | DDA 法 で 株 を 引く た め の 前 処理 
7 add.| py,py | 

72: cmp.| dx,dy | dx>dy な ら ば 

73: bcs.S 1]ine2 | ine2 ル ー チ ン で 線 を 引く 

74: 

75: linel: move.W yoff,d4 

76: move.| dy,dd dd = -dyi 

77: neg.| dd do { 

78: loop1: bsr.s dot putdoti 

79: add.w  d4,2(gptr) y += yoff: 

89: add.| px,dd dd += pxXi ba 
81: bmi.s Inextl ば (dd ea 
82: addq.w #1,9(gptr) X+ サ 5 

83: sub.| py,dd dd -= pyi 

84: Inext1: dbra dy,loopl } 

85: bra.s lineexit } while (--dy >= の : 

86: 

87: line2: mOve.Ww yoff,d5 

88: move.] dx,dd dd = -dXi 

89: neg.| dd do { 

99: loop2: bsr.s dot putdot: 

91: 1 addq.w #1,(gptr) X++) 

92: add.| py,dd dd += pyj 。 吾 
93: bmi.s 1next2 if (dd oe の { DDA 法 に よっ て dx>dy の 線 を 引く 
94: add.w  d5,2(gptr) y += yoffi 

95: sub.| px,dd dd -= pXi 

96: Inext2: dbra dx, loop2 } 

97: bra.s lineexit } while (--dx >= の : 

98: 
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99: xline: bsr.s dot ( ) 

199: addq.w #1,9(gptr 

191: dbra 。 dxxline | 人 隊 4 

192: bra.s lineexit 

193: 

194: yline: mOve.W yoff,d4 

195: ylineloop: bsr.s dot 

196: add.w  d4,2(gptr) 3 

197: dbra dy,ylineloop 

198: 0 

199: lineexit: movem.| (SP)+, ALLREG 

118: unlk fp | 2 

1 邊 rts 

] 人 2: * 

113: * dot routine : (al) x 

114: * 2(a1) y 

115: * d6 color code 

116: * d7 mode 

117: * break ・ a!, dg 

118: * mode : 9 put 

119: * と 0P 

129: * ・2 and 

121: * : 9  XOT 

122: * ・4 reset Without color code 
123: * ・5 not without color code 
124: 

125: .text 

126: dot: move.W modetbl(pc,mode.w),a! | 
127: Jmp modetbl(pc,a.w) | 人 
128: 

129: modetbl: dc.w p_set-modetb1 

13: dc.w p_or-modetbl 

131: dc.w p_and-modetb] 

132: dc.w p_Xor~-modetbl 

133: dc.w p_reset-modetbl 

134: dc.w p_not-modetbl 

135: dc.w p_none-modetbl 

136: dc.w p_none-modetbl 

137: 

っ IA 計 HbokBAku 
149: rts 

141: p_or: I0CS _-POINT 

142: or.W col,4(gptr) [ 画面 上 の 色 と col の or で ドッ ト を 打つ 
143: 10CS _PSET 

144: rts 

145: p_and: 10CS _POINT 

146: and.w col,4(gptr) [ 画 画 上 の 色 と col の and で ドッ ト を 打つ 
147: 10CS _PSET 

148: rts 

149: p_xor: 10CS _POINT 

159: eor.w col,4(gptr) [ 画面 上 の 色 と col の xor で ドッ ト を 打つ 
151: IOCS _PSET 

152: rts 2 

153: p_reset: clr.w 4(gptr) ド っ っ 
154: IOCS  _PsET 2 
155: rts 

156: p_not: 10CS _POINT 

157: not.w 4(gptr) 画面 上 の 色 を 反転 する 
158: 10CS _PSET 

159: p_none: rts 

169: 

161: * 


162: * dobox 
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163: * 
164: 
165: ALLREG Teg d3/d6-d7/a3-a5 
166: xl Teg a2 
167: y1 Teg 83 
168: x2 Teg a4 
169: y2 Teg a5 
179: 
171: dd Teg d1 
172: dx Teg d2 
173: dy Teg d3 
174: col Teg d6 
175: mode Teg d7 
176: 
77< .text 
204 doboy: 1 PE | レジ スタ の 保存 , 6 バイ ト の バッ ファ 確保 
189: mOVe.| sp,gptr 
181: movem.| ALLREG,-(SP) | クラ フィ ッ ク 男 面 が 信用 で き 
182: I0CS  _POINT | けれ ば ー1 を 返 す 
183: tst.| dM 
184: bmi.s boxexit 
185: movem.| 8(fp),x1/y1/x2/y2 | 用 
186: movem.1 24(fp),col/mode 1 7 だ 
188: 0 es | ウ ルー チン 用 に node を 衣 し な わす 
189: cmp.|  xl,X2 | 
199: bpl.s nbox x1 く x2 に な る よう に x1, x2 を 入れ 換え る 
191: eXg X% 層 X2 ! 
192: nbox: cmp.| yl,y2 
193: bpl.s nbox2 
194: eXg y1,y2 
195: nbox2: move.| x2,dx | | 
電 は dx dy を 求め る [MT 
198: sub.| yl,dy 
199: * 
299: move.w X1,(gptr) 
291: moye.w y1,2(gptr) 箱 の 上 側 の 線 を 引く 
292: move.| dx,dd 
293: bsr.s xbox draw over Xline 
294: move.w x1,9(gptr) 
生 0 の NR 導 の 下 側 の 線 を 引く 
297: bsr.s xbox draw under Xline 
298: subq.| #2,dy R 
299: bmi.s boxexit | ポリ チェ ッ ク た 
219: addq., 1 和夫 AA 上 下 各 1 ドッ ト ず つ は も う 描 画 し 終わ っ て いる の で , 数 値 を 計算 し な お す 
21 move.w X1l,(gptr) 
人 0 DS 1 箱 の 左側 の 線 を 引く 
214・ bsr.s yhbox draw left Yline 
215: move.w X2,9(gptr) 
か は 0 灯 の 右側 に 線 を 引く 
218: bsr.s  ybox draw right Yline 
219: boxexit: 
229: movem.| (SP)+,ALLREG [ 
221: unlk fp 終了 処理 
222: rts 
223: 
224: xbox: bsr dot | 
計 di TO | 親 の 上 側 と 下 側 の 線 を 引く た め の ル ー チ ン 
227・ rts | 
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228: 

229: ybox: bsr dot 6 ) 

239: addq.w #1.2(gptr ョ と チ 個 に 2 の の 7 の 
231: dbra dd, ybox OO 

232: rts 

233: 

234: end 





int doline(x0, y0, x1, y1, color, mode) : 





int x0, y0, x1, y1: 
int color: 
int mode: 


始点 (x0, y0) か ら 終 点 (x1, y1) まで , 画面 上 の 色 と color を mode に 従っ て 論理 演算 プク リッ ピ 
ング し て 線 を 描く (65, 536 色 モ ー ド に し か 対応 し て いな い ) 





int dobox(x0, y0, x1, y1, color, mode) : 





int x0, y0, x1, y1: 
int color: 
int mode: 


合点 (x0, yO) か ら 終点 (x1, y1) まで , 画面 上 の 色 と color を mode に 従っ て 論理 演算 プク リッ ピ 
ング し て 箱 を 描く (65, 536 色 モ ー ド に し か 対応 し て いな い ) 


mode 行わ れる 論理 演算 


color を 表示 する 

color と 画面 と の or を 表示 する 

color と 画面 と の and を 表示 する 
画面 と の xor を 表示 する 




















color と 
消去 する 














反転 する 表 5.B doline 関数 と dODOx 関数 の 仕様 


この 関数 は 非常 に 応用 範囲 が 広い た め , IOCS コー ル を 使っ て ,。 どの グラ フィ ッ ク モ ー ド で も る 動 
く よ う に 作っ て あり ます . また , この プロ グラ ム で は , 整数 型 Bresenham アル ゴリ ズム を 用 いて 
いま す .。 この アル ゴリ ズム は , 直線 を 描く 場合 に よく 使わ る アル ゴリ ズム で , 整数 の 加減 算 と 乗 
算 し か 行なわ な いた め 高 速 な 処理 を 期待 で きま す . 詳し い 内 容 に つい て は , グラ フィ ッ ク の 専門 
書 等 を 参照 し て くだ さい . 

実際 に 色 を 描く に は , まず IOCS コー ル の POINT で 指定 し た 座標 の 色 を 調べ て , その 色 と 指定 
レ た 色 で 論理 演算 を し て , その 結果 を IOCS コー ル の PSET で 表示 し ます . 
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5. つ グラ フィ ッ ク エ ディ タ の 強化 





さき さて, これ まで 紹介 し て きた よう に , 構造 的 に 記述 し た い 部 分 は C 言語 で ., カッ ト ア ンド トラ 
イ で 作る ほう が 便利 な 関数 や 。 グ ラフ ィ ッ ク , サウ ンド な どの C 言 語 か ら 扱 う の が 面倒 な 部 分 は 
X-BASIC で , 速度 の 必要 な 関数 は アセ ン ブ ラ で と 。, 各 言語 の 特色 を いか し た プロ グラ ミン グ を 行 
いま し た . また ,。 こう し て 作っ た 関数 を ,。 ライ ブラ リ 化 , 外部 関数 化し て 自由 に 使え を る よう に し 
でき >: ま "レプ 

本 章 の 最後 に . これ まで で きた 関数 と 。 あら た に いく つか の 関数 きら に 追加 し て , すでに 紹介 
し た グラ フィ ッ ク エ ディ タ を 強化 し て みる こと に し まし ょ う . 























5.3.1 update 関数 と und ロ 関数 

ここ で は , C 言語 , X-BASIC。 ア セン ブラ の 関数 を mkb で X-BASIC の 外部 関数 に し て , グ 
ラフ ィ ッ クエ ディ タ の 機能 強化 を は か り ま す . まず , これ まで 紹介 し て きた gsave 関数 , gload 関 
数 , getcl 関数 , doline 関数 , dobox 関数 を 使い ます . そし て , あら た に , update 関数 と undo 関 
数 を 作る こと に し ます . 

update 関数 は グラ フィ ッ ク 画 面 を バッ ファ に 退避 する 関数 , undo 関数 は 退避 し た 画面 を 復帰 
する 関数 で , プロ グラ ムリ スト は リス ト 5.15 で す . 





リス ト 巳 . 1 updatg 関数 と undo 関数 (undO.S) 





1: * void update() 
2: * void undo() 
3: .Include doscall.mac 
4: 
5: count: equ $89999/(4*8)-1 
6: grpbase: equ $c999 
7: cnt Teg d1 
8: from Teg ag 
9: to Teg a1 
19: 
人 也 .BSS ] 画面 デー タ を 保存 
12: grp: .DS.B  $8 外 99 data area for saving graphic d | する た め の バ パッ ファ 
ata 
13: 
14!: 
5: .text 
16: .globl _update 
17: _update: clr.| -(sp) 
18: DOS _SUPER 
19: move.| d!,(sp) 
2: move.| #count,cnt 
21: move.| #grpbase,from 
22: move.| #grp,to 
23: loop1: move.| (from)+,(to)+ 
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24: move.| (from)+,(to)+ 
25: move.1 (from)+,(to)+ 
26: move.| (from)+,(to)+ 
27: move.| (from)+,(to)+ 
28: move.| (from)+,(to)+ 
29: move.| (from)+,(to)+ 
9: move.| (from)+,(to)+ 
31: dbra.s cnt,loop1l 

32: DOS _SUPER 

33: addq.| #4,sp 

34: rts 

35: 

36: .globl _undo 

37: _undo: clr.]  -Csp) 

38: DOS _SUPER 

39: move.| d9,(sp) 

4 move.| #count,cnt 
41: mOve.| #grp,from 各 レ ジス タ の 初期 化 
42: move.| #grpbase,to 
43: loop2: mOve.| (from)+,(to)+ 
44: move.| (from)+,(to)+ 
45: move.| (from)+,(to)+ 
46: move.| (from)+,(to)+ 
47: move.| (from)+,(to)+ ! 画面 デー タ の 復帰 
48: mOve.| (from)+,(to)+ 
49: move.| (from)+,(to)+ 
5: move.| (from)+,(to)+ 
51: dbra.s cnt,loop2 

52: DOS _SUPER 

53: addq.| #4,sp 

54: rts 

55: 

56: .end 


void update() : 





画面 デー タ を 退避 する 
(65, 536 色 モ ー ド に し か 対応 し て いな い ) 


void undo() : 


退避 し た 画面 デー タ を 復帰 する 
(65, 536 色 モ ー ド に し か 対応 し て いな い ) 











表 巳 . プ update 関数 と undo 関数 の 仕様 
この update 関数 と undo 関数 は , 内 部 に 512K バイ ト の バッ ファ を 持っ て いま す 。 そ し て その 


パッ ファ と グラ フィ ッ ク RAM と の 間 で デー タ の 交換 を 行う の で す 。 た だ し 512K パイ ト を 転送 
する に は 結構 時 間 が か か っ て し まい ます . 
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5.3. 外部 関数 へ の 追加 


これ ら す べ て の 関数 を grp.fnc と いう 名 前 の 外部 関数 ファ イル と する た め の ヘ ッ ダ ファ イル を 
用 意 し て くだ さい (リス ト 5.16). ま FNC\grp ディ レク トリ の 下 に 格納 し ます . 


リス ト 号 . 1] 巳 ヘッ ダフ ァイル (grp.mkb) 


・ int gsave(str fname, int x9, int yint xl, int y1): 

: int gload(str fname, int x, int y): 

・ int getcl(int color): 

・ int doline(int xint y 外 int x1, int y1, int color, jint mode): 
・ int dobox(int x9, int y9, jnt x1, int y1, int color, int mode): 
・ void update(): 

・ void undo(): 


ーー1 の っ Cm GL で う ト ウッー 





それ で は , これ ら の 関数 を ひと まとめ に grp.fnac と いう 名 前 の 外部 関数 ファ イル に 変換 し ます . 
mkb で 指定 する ファ イル 名 は ,。 ルー トディ レク トリ か ら の 絶対 パス 名 で 指定 し て くだ さい . 


mkb grp.mkbD \c\gls\gload.C \c\gls\gsave.C \Dbc\getcl\getcl.bas 


\asm\do\do.S \asm\undo\undo.S 


正常 に 終了 し た ら , grp.fnc と いう 外部 関数 ファ イル が で き て いる は ず で す ( 図 5.14). 


sl 性 BASTOC 
コン バー タ 


昌 u U C コ ン バ イ ラ 


sch フ ァイル へ の 変換 
ツ ツ ツ ツ ツ セン プラ 


上 2 T TI TI = テー 


リン カ clib . a 
doslib .a 


iocsIib .a 


テー ブル 
の 作成 


















ライ ブラ リ 


図 選 .14 外部 関数 ファ イル 作成 の 流れ 
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それ で は ,。 で き あ が っ た 外部 関数 を X-BASIC に 組み 込み ます . BASIC2 の 下 に ある BASIC. 
CNF を リス ト 5.17 の よう に 書き 換え て くだ さい . 以前 に 作っ た gls.fnac で す サポート し て いる 関 
数 は , 今回 作っ た grp.fnc 中 に 含ま れ て いま すか ら 必 要 あ り ま せん . ディ ス ク 容 量 を 節約 する た め 
に も 削除 し て くだ さい . 


リス ト 盛 . 1 フ BAgiC.CNF の 変更 





1: FREE = 128 
2: WIDTH = 64 

3: BEEP = ON 

4: CAPS = OFF 

5: FUNC = AUDIO 

6: FUNC = GRAPH 

7: FUNC = MOUSE 

8: FUNC = MUSIC 

9: FUNC = SPRITE 

19: FUNC = STICK 

11: FUNC = IMAGE 

122 FUNC grp の tt… 今回 作成 し た 外部 関数 ファ イル の 名 前 


証 


で て 。 これ か らい よい よ グ ラフ ィ ッ クエ ディ タ を 強化 する の で す が , 変更 点 は それ ほど 多く な 
"の で 。 先ほど の リス ト と の 差分 だ け を 掲げ て お きま す ( リ スト 5.18). ほとん ど 関 数 を そっ くり 
差し 換え る だ け の 変更 で 強化 版 の グラ フィ ッ クエ ディ タ が 完成 し ます . 変更 後 の フ ァ イ ル 名 は , 
Sged.Das と で も し て お きま し ょ う . 

憶 造 的 に プロ グラ ミン グ さ れ て いる と 。 と の よう に 関数 の 置き 換え だ け で , チュ ー ン ナッ プ を 
は か る こと が で きま す . ちょ うど 車 の 部 品 を 交換 する の と 同じ よう な 感覚 で 行う こと が で きる の 
で は な いで し ょ うか . 

















較 変更 する 部 分 
・ 初 期 化 部 ( の 部 分 を [ | の よう に 変更 する ) 
int AutoUp = ! /* AutoUpdate mode (now can't SuppOrt) 


float Buffer(65535) 
float tmpI(127), tmp2(127), tmp3(127), tmp4(127), tmp5(127), tmp6(127) 





int AutoUp = -1 /* AutoUpdate mode 
Str Tmpfname = "temp.ged” 
float tmp5(127), tmp6(127) 





・dOUpChange 関数 





func doUpChange() 
beep 
endfunc 





func doUpChange() 
AutoUp = not AutoUp 
endfunc 





と) 
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・HOUndo 関数 








func doUndo() 
int x,y 
clearMS() 
undo( ) 
mSpos(X, y) 
initMS(x, y) 
endfunc 


func doUndo() 
beep 
endfunc 














・dHOUpdate 関数 
func doUpdate() 
beep 
endfunc 
func doUpdate() 
int xy 
clearMS() 
update() 
mSpoS(x, y) 
initMS(x, y) 
endfunc 
・dOGlogad 関数 








func doGload() 
str fname 
scroff() 
fname = getFname() 
scron( ) 
clearMS() 
if gload(fname, 9, 9) <> then beep 
mspoS(x, y) 
initMNS(x, y) 
endfunc 


func doGload() 
beep 
endfunc 
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*dOGSaVvVge 関数 





func doGsave)) 。 
beep _。 
endfunc 





func doGsave() 
str fname 
scroff() 
fname = getFname() 
scron() 
clearNS() 
if gsave(fname, 9 9 511, 511) <> 9 then beep 
mSpos(x, y) 
initMS(x, y) 
endfunc 





・drawLine 関数 


func drawLine(orgx, orgy) 
Tepeat 
msstat(x, y, left, right) 
mspos(x, y) 
if MenuType = 2 then toHard(orgx, orgy) 
cursorMS(x, y) 
until left = 
clearMS() 
line(orgx, orgy, x,y, cl) 
jnitMS(x, y) 
endfunc 








func drawLine(orgx, orgy) 
int oldx, oldy 
mSpos(x, y) 
if MenuType = 2 then toHard(orgx, orgy) 
clearMS() 
doline(orgx, orgy, x, y, cl, 3) 
initMS(x, y) 
oldx = x : oldy = y 
repeat 
msstat(x, y, left, right) 
mSpoS(x, y) 
if MenuType = 2 then toHard(orgx, orgy) 
if (x <> oldx) or (y <> oldy) then 
clearMS() 
doline(orgx, orgy, oldx, oldy, cl, 3) 
doline(orgx, orgy, x, y, cl, 3) 
initMS(x, y) 
oldx = x : oldy = y 
} 
until left = 
clearMS() 
doline(orgx, orgy, x, y, cl, 9) 
initMSCx, y) 
endfunc 
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・drawLine8 関数 





func drawLines(orgx, orgy) 
Tepeat 

FTepeat 
msstat(x, y, left, right) 
mSpOS(x, 》) 
if MenuType = 2 then toHard(orgx, orgy) 
cursorMS(x, y) 

until (left = 9) or (right <> の 

ifright =gthen{ 
clearMS() 
line(orgx, orgy, x, y, cl) 
initMS(x, y) 
OTgX ニ X・ OF8Y ニ y 


Tepeat 
msstat(x, y, left, right) 
mSpoS(x, y) 


if MenuType = 2 then toHard(orgx, orgy) 
cursorMS(x,。y) 
until (left <> 9) or (right <> の 
untilright <> 9 
endfunc 





func drawLines(orgx, Orgy) 

int oldx, oldy 

repeat 
mSpOS(X, y) 
if MenuType = 2 then toHard(orgx, orgy) 
clearMS() 
doline(orgx, orgy, X, y, Cl, 3) 
initMS(x, y) 
oldx = x : oldy =y 


repeat 
msstat(x, y, left, right) 
mspoS(x, y) 


if MenuType = 2 then toHard(orgX, orgy) 
if (x <> oldx) or (y <> oldy) then { 
clearMS() 
doline(orgx, orgy, oldx, oldy, cl, 3) 
doline(orgx, orgy, X, y, Cl, 3) 
initMS(x, y) 
oldx = x : oldy =y 


) 
until (left = の or (right <> の 
ifright =then【{ 
clearMS() 
doline(orgx, orgy, X, Y, cl, の 
OF8X ニ X・ OT8Y =yY 
doline(orgx, orgy, x, y, cl, 3) 
initMS(x, y) 


repeat 
msstat(x, y, left, right) 
mSpos(x, y) 


if MenuType = 2 then toHard(orgx, orgy) 
if (x <> oldx) or (y <> oldy) then { 
clearMS() 
doline(orgx, orgy, oldx, oldy, cl, 3) 
doline(orgx, orgy, X, y, cl, 3) 
initMS(x, y) 
oldx = x : oldy = y 
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until (left <> の or (right <> の 
clearMS() 
doline(orgx, orgy, oldx, oldy, cl, 3) 
initMS(x, y) 
) else { 

clearMS() 
doline(orgx, orgy, oldx, oldy, cl, 3) 
initMS(x, y) 

until right <> 9 

endfunc 
・tBuf 関数 








func getBuf(xl, y1, x2, y2) 
get(xl, y1, x2, y2, Buffer) 
endfunc 








func getBuf(x1, y1, x2, y2) 
gsave(Tmpfname, xl, y1, x2, y2) 














endfunc 
・Dut 日 uf 関数 
func putBuf(x, y) 
put(x,。 y, x + BufX, y + BufY, Buffer) 
endfunc 
func putBuf(x, ゞ ) 
gload(Tmpfname, x, y) 
endfunc 








・ClearBOx 関数 











endfunc 


func clearXBox(x1, yl1, x2, y2, cl) 
putBox(x1。 yl x2.y2) . 

endfunc 

func clearXBox(x1, y1, x2, y2, cl) 
dobox(xl, y1, x2, y2, cl, 3) 





・ShOwBOx 関数 





func showXBox(xl, y1, x2, y2, cl) 
getBox(x1, yl, x2, y2) 


limel。 y1, 2 yl,cl)  / な forX-BASIC'sBUGofbox 


lineCl, vV2、x2。 y2, cD) 

line(x1, yl, x1, y2, cl) 

line(x2, y1, x2, y2, cl) 
endfunc 1 





func showXBox(x1, y1, x2, y2, cl) 
dobox(x1, yl, x2, y2, cl, 3) 
endfunc 


= 
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画 削除 する 部 分 


・ 到 etC| 関数 





func getcl(cl) 
Tepeat 
cl = doIntInput(9, 2, "What Color (-65535)", cl) 
until (9 <= cl) and (cl <= 65535) 
return(cl) 
endfunc 





・HOlntlnput 関数 





func dolntInput(x, y, mesi str, ans) 
str temp 
locate x, y 
PFint meSj 
input temp 
if temp = "then return(-1) 
if temp = ”” then return(ans) 
return(val(temp)) 
endfunc 





・BtBOx 関数 





fxl >51】 then 
ifyl< then yl 
511 then y1 
9 then x2 
511 then x2 
if y2 9 then y2 
if y2 > 511 then y2 = 511 
get(xl, VI X2. yl (mpl) , get(l, y2。x2。y2.【mp2) 
get(xl, y1, xl, y2, tmp3) : get(x2, y1, x2, y2, tmp4) 
endfunc 


1f WI 
1f 2 
1f x2 


V_ A VA V 





・Dut 日 Ox 関数 





ゃ うら 
トン 


func putBox(xl, y1, x2, 
fxl 90lhenu 
if xl > 511 then xl 
ifyl< then y1 
511 then yl 
9 then x2 
511 then x2 
if y2 then y2 
if y2 > 511 then y2 = 511 
put(xl, yl x2. y|, tmpl) |: putC1, y2,。 2、y2。 tmp2) 
put(xl, yl X1 y2. 【mP3) | PUt(X2。 yl X2 2 【Lmp42) 
endfunc 


で S 


511 


if yl 
if x2 
1T 4 


511 
511 


1 3 3 | 半 | 織 半 和 |) 88 ! 3 
で SR 


0 23 。 230 


func getBox(xl, y1, x2, y2) 
ifXl<S り Ulen〈(= 0 





リス ト 5.1 ヨ 8 グラ フィ ッ ク エ ディ タ の 変更 点 (ged.Dag) 
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-BASIC を 起動 し て , sged.bas を 実行 し て みて くだ さい . 基本 的 な 操作 は すでに 説明 し た グラ 
フィ ッ ク エ ディ タ と 同じ で す . いま まで 選択 で き な か っ た 機能 が すべ て 選べ る よう に な っ て いま 
げす 。 





まず ,1 段階 の 画面 保護 機能 (undo) を つけ た の で す が , 画面 を 編集 する た びに 画面 を 保存 し て い 
る た め , スピ ー ド が 低下 し ます . そこ で , 指示 され た と きだ け 画 面 を 保存 する モー ド と 切り 替え 
る た め の UndoMode が 使 を る よう に な り ま し た . 

また , 画面 を 保存 する 指示 を だ す Update と , 保存 し て お いた 画面 を 回 復 さ せる Undo が , それ 
ぞ れ 有効 に な り ま し た . そし て 画面 の 圧 緒 セー ブ を 行う Save, 圧縮 デー タ を 展開 し て ロー ド す る 
Load も 有効 に な り ま し た . 

これ まで の 作業 で usrlib.a に は , stack 関係 の 関数 gload 関数 , gsave 関数 , getcl 関数 の オブ 
ジェ クト が 登録 さて て いる は ず で す . し か し た び た び 登録 を 行っ て きた の で , 登録 し 忘れ ん た も の 
が ある か も し れ ま せん . そこ で 強化 版 グ ラフ ィ ッ クエ ディ タ で 使わ れる 関数 すべ て を 納め た gTD. 
a と いう ライ ブラ リフ ァイル 作り ます . カ レン トディ レク トリ を 侍 jb に 移動 し て ,① か ら ④ ま で の 
手順 を 順に 実行 し て くだ さい . grp.a と いう ライ ブラ リ が で きる 様子 も 図 5.15 に 示し て お きま 
す . 





① cc プ L ンプ O \c\gls\gload.c \c\gls\gsave.c \bc\getcl\getcl.bas 
② as グ u /ia : \include \asm\do\do.S 

③ as プ u /ia : \include \asm\undo\undo.s 

④ ar \grp.a gload.o gsave.o getcl.o do.o undo.o 


イン クル ー ド BASTO0C 
コン バー タ 








5.15 ライ ブラ リ 化 の 様子 
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以上 で 。 ラ イブ ラリ ファ イル が で き あ が り ま す . 最後 に sged.bas を いま 作っ た ライ ブラ リ を 
使っ て コン パイ ル し ます . sged ディ レク トリ に 移動 し て , 


cc グ O ノ Y sged.bas a : \|ib\sgrp.a 


と 入力 し ます . これ で 実行 ファ イル が 作成 され ます . この よう に ライ ブラ リ を 作る の は 大 変 で す 
が , 使う うえ で の 便利 さき に は 代え られ ませ ん . 


5. ノ | より 高度 な プロ グラ ミン グ の た め に 


これ まで の 過程 を 見 直し て みる と , C 言語 で 使え を る よう な 形 で 関数 を 作っ て お け ば , X-BASIC 
や アセ ン ブ ラ か ら も 容易 に 使う こと が で きま す . で すか ら , 私 た ち が プ ログ ラム を 書く 段階 で , 
あら か じ め そ うし た こと を 意識 し て いれ ば , プロ グラ ミン グ の 効率 も よく な る で し ょ う . 

また , それ ぞ れ の 言語 で プロ グラ ム の 部 品 と し て 関数 を 作り , 最 終 的 に それ ら を 組み 立て て 1 つ 
の プロ グラ ム を 作り まし た 。 つ まり , 分 割 コ ン パ イル の と ころ で 述べ た モジ ュー ル 他 と いう 考え 
か た と 同じ で す . 

それ ぞ れ の 関数 を 部 品 と し て 作っ て , その 関数 が 正しく 動く か どう か を チェ ッ ク す る の は 比較 
的 か ん た ん で す . そし て , その と き に 全体 的 な プロ グラ ム の 構造 の 見 通し を た て て お け ば , 1 つの 
プロ グラ ム と し て まとめ た 場合 に も ちあ まり バグ は 発生 し ませ ん . この よう に , モジ ュー ル 化 と い 
う の は プロ グラ ム を 作る より よい 方 法 の 1 つと いえ る で し ょ う . その 上 , モジ ュー ル は それ ぞ れ 
独立 し て いま すか ら , ライ ブラ リ に 組み 込ん で 他 の プロ グラ ム か ら 活 用 する こと も で きま し た . 

た だ し , ソー スプ ログ ラム が 新しく な っ た か ら と いっ て , 自動 的 に その ソー ス を 使っ て いる ラ 
イブ ラリ や 外部 関数 まで も が 新しく な る わけ で は あり ませ ん . た と えば , ソー スプ ログ ラム か ら 
は バグ を と っ た の に , ライ ブラ リ や 外部 関数 を 使っ た プロ グラ ム に は バグ が 残っ た まま と いう こ 
と も あり ます . ソー スプ ログ ラム を 新しく し た あと で 。 ライ ブラ リ へ の 再 登録 や , 外 部 関数 ファ 
イル の 作り 直し を 忘れ な いよ うに 気 を つけ て くだ さい . 

これ まで 述べ て きた よう に , この CCompiler PRO-68k で の モジ ュー ル 化 プロ グラ ミン グ と い 
う の は , C 言語 の プロ グラ ム に つい て だ け で な <, X-BASIC や アセ ンプ ブラ の プロ グラ ム に つい て 
も いえ る こと で す . 最初 に 述べ た よう に , X-BASIC。BASTOC, C。 ア セン ブラ は すべ て 組み 合 
わせ て 使え ます 。 そし て 効果 的 に 組み 合わ せ て 使う た め に は , モジ ュー ル 化 と いう こと に 注意 を 
払っ て お く こ と が 重要 な の で す . 
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459000 


XBBOOO は 。 これ まで の マシ ン に 見 られ な か っ た よう な 
"な マシ ン で すか が , その 結果 


7ー フ トウ ェ ア 資 産 を 受け 継 
| JsS 


マ て 
resrr_ - ブ ログ ラ 22 かー せめ て 開発 ツー ル 類 


レイル アク ヤス は そろ えて お いて も らい た も の で すか が, 本 書 を 執筆 し て いる 現在 


LOADM (1 BB 年 月 現在) で も , 他 の マシ ン と 比較 する と , まだ まだ 少 
SAVEM | な いと いわ ざる を 得 な いと いう の が 実情 で す . 


しかし, 数 は 少な いな が ら も , XB8000O の グラ フィ ックス を い 
| pEvI に か し た エディ タ や ,  X- 日 ABIO を 拡張 する た め の 外 部 関数 バッ 
| pEvO ェ ケ ー ジ な ど , ユー ザー で あれ ば 欲し く な る よう な 質 の 高い も の が 発 
| 


| DRvCTRL 、- 売 され て いま す . 本 凍 で は 、 これ ら の 開発 ツー ル の いく つか を 紹介 
| os | の する こ ロ cb ニー 


了 ディ スク (2HD/ 
DSKO ま 2 

| EJECT 

| HDOFF_ 

章 フラ ワラ ィ リック の 制御 

| GOK 

| GeETPAL 
MOVLAP 


| FADE IN 

ま 

| FADE OUT 
| TVPW OFF 


肛 
| kEvpELAY1 
| KEYDELAY2 














6.| エディ タ 一 windex 一 


B.] エディ タダ WHICHEX デ 








X68000 に は , ED.X と いう エディ タ が 標準 添付 され て いま し た . これ は , CP/M や MS-DOS の 
環境 で は 有名 な , WordMaster と いう エディ タ に よく 似 た 機能 を 持っ て お り , 標準 添付 の も の と 
疹 で は と て や よ ぐ で き で いま し だ か し 。。 せっ うか く ビ ピット マッ デ デ ィ ス デ レイ が ある の で か 
ら 。 これ を いか し た エディ タ が あれ ば …, と 思う の は 筆者 だ が け で は な いで し ょ う . 

そこ で , 紹介 する の が windex (開発 ・ 株 式 会 社 ジ ェ ー・ イ ー・ エ ル ) と いう スク リー ン エ ディ タ 
で す . それ で は , この エディ タ の 特徴 に つい て か ん た ん に 紹介 し まし ょ う . 


田 マル チ ウ ィ ン ド ウマ ル チ テ キス ト 

windex で は , 1 つの ウィ ンド ウ に 1 つの テキ スト を 置い て 管理 し ます . た だ し 複数 の ウィ ンド 
ウ に 1 つの テキ スト を 割り 当て る こと も 可能 で す . この ウィ ンド ウ は 最大 で 32,766 個 ま で 画面 上 
に 開く こと が で き , その 大 き さ や 位置 を ドッ ト 単 位 で 任意 に 変更 可能 で す (写真 6.1). 

















Kargc に 3) も 


3 PrintfCsLderr, "Usage 
extt〈(1): 


て copu(argul1], argu[2]) 三 
お perrortargu[ 明 ): 
fputs《" コ ピー に 失敗 し きま 
exit《1): 











写真 B.1 windex で ウィ ンド ウ を 開い た と ころ 


ウィ ンド ウ の 操作 は , ビジ ュ ア ル シ ェ ル の 操作 と 同様 で ウィ ンド ウ の 開閉 や 位置 の 移動 ズー 
ム ア ッ プ な どの 操作 を マウ ス で 行う こと が で きま す 。 ちょうど, ビジュ アル シェ ル 上 の ウィ ンド 
ウ で , アイ コン の 代わ り に テキ スト が 表示 され て いる 状態 を 考え て も ら え ば よい と 思い ま 。 も 
ちろ ん ウィ ンド ウ の 高 さ や 幅 , 位置 の 指定 , ウィ ンド ウ 内 の テキ スト の スク ロー ル も 自由 で す . 

また , テ キス ト フ ァイル は 同時 に 1.024 個 まで 扱う こと が で きま す . 実際 に は ほ は メ モリ 容量 の 関係 
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で ウィ ンド ウ や テキ スト の 数 は 制限 され ます が , それ ほど た くさ ん の ウィ ンド ウ を 開く こと は ま 
れ で すか ら , メモ リ を まっ た く 増 設 し な く て も 実用 上 は 問題 な いで し ょ う 

この マル チ ウ ィ ン ド ウノ マル チ テ キス ト 機 能 は , ソー スプ ログ ラム を 複数 に 分 割 し て プロ グラ 
ミン グ を する 場合 に 真価 を 発揮 し ます . た と えば ,。 ある ソー スプ ログ ラム を エディ ッ ト し て いる 
と , 別 の ソー スプ ログ ラム を 参照 し た い 場合 が よく あり ます . その よう な と き , マル チ テ キス ト 
機能 が な い エ ディ タ で は 。 参照 し た い ソ ー ス プロ グラ ム を 表示 させ る た め に , いち いち エディ タ 
を ぬけ て TYPE コマ ンド な ど を 実行 する と いっ た 非常 に 面倒 くさ い 作 業 を し な けれ ば な り ま せ 
ん 。 





國 マウ ス に よる 操作 

windex で は , キー ボー ド か ら だ け で は な く マ ウス か ら も ファ イル 操作 や 文字 列 の 検索 , 置換 等 
の 操作 が 行 を る よう , プル ダウ ン メ ニュ ー と ポッ プア ッ プ メニ ュー が 用 意 き れ て いま す . 

プル ダウ ン メ ニュ ー と は , 画面 上 部 の メニ ュー バー に 表示 され て いる タイ トル の 部 分 に , マウ 
スカ ー ソ ル を 合わ せ て マウ ス の ボタ ン を 押す と 表示 され る メニ ュー の こと で す . プル ダウ ン メ 
ニュ ー の 種類 は 写真 6.2 の と お り で す . 

これ ら の メニ ュー 機能 の お か げ で 。 キー へ の コマ ンド 割当 て を 覚え て いな く て も , ファ イル 操 
作 や 文字 列 操作 な どの 処理 を 行う こと が で きま す . 

また , 文字 列 の 切 貼 り プ 写し 貼り や 検索 。 置換 の 際 に 領域 指定 を 行う 必要 が あり ます が , この 
と きも マウ ス を 使っ て 非常 に か ん た ん に 領域 指定 を 行う こと が で きま す . 





田 マク ロ 機 能 
マク ロ 機 能 と は , あ る 連続 し た 複数 の 操作 を まとめ て 1 つの 操作 に 割り 当て 実行 する 機能 で す . 
windex で は 。 36 個 ま で マク ロ を 定義 むす る こと が で きま す . 





較 キー 定義 な どの コン フィ ギュ レー ショ ン 

windex で は , 若干 の 制限 は ある も の の , ファ イル 操作 や 文字 列 検 索 , 置換 な どの コマ ンド を 任 
意 の キー に 割り 当て る こと が で きま す . また , 自分 で キー の 割当 て を 定義 むる だ け で は な く , 標 
準 で 次 の よう な いく つか の 定義 ファ イル が 提供 さき れ て いま す . 

で すか ら , 他 の エディ タ を 使い 慣れ て いる 方 で も , あま り 抵 抗 を 感じ る こと な く windex を 使う 
こち が で きま す , 








・ オ リ ジ ナ ル の コマ ンド 割当 て 

・ED に 準拠 し た コマ ンド 割当 て 
・MIFES に 準拠 し た コマ ンド 割当 て 
・V-EDIT98 に 準拠 し た コマ ンド 割当 て 








6.| エディ タ 一 windex 一 





まこ SSr | 
| し 導 SS も 。 日 生き か 
| ド ュ か SS も 還 ら rk 
ト ュ きも Mork 








Rep 1 ace 
と Cernan コ 
た yi 
村人 
1 ロ す Orma も 1 ら n 

テキ スト 操作 








ファ イル の 保存 と エディ タ の 終了 








いも モッ ド ョ S ミ て 人 






し の 
負う 
多 に Pa+KC3 
角 に に 名 ・ て 良 > 
委 pe1・ て で て) 


だ PaS 
に か きき 
まこ 
DL な ts 
kd 


僅 夫 な 衝 ます nnKL, 晴 ) 
光 旬 要 か 人 Gh まほ mtG。F う 
半生 要 POh ま n( 人 G。 肪 ) 
| 和香 昌 PR に * ず う 
に た) > 呈 う 














合 香 昌 か 人 G れ (きょう 


斉 生得 は 1 
ame 


テキ スト の 切り 貼り 





テキ スト 中 の 文字 検索 置換 操作 


きい G Ex さら Cut@ 
KM に 。 きも ぁ の も 





nao ~ 
に さと] 
Hp ロキ ーー コロ 人 ・ 


に: ま - キ v: LEOL を | ・ 由 操作 取消 し な ど 
S で き 1S 1 全 四 ・ 





その 他 の メニ ュー 


写真 B. 己 ブル ダウ ン メ ニュ ー 
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還 マル チ テ キス ト へ の 同時 検索 , 置換 

文字 列 の 検索 や 置換 は , エ ディ タ に と っ て 必要 不可 欠 な 機能 で す . も ちろ ん windex で も この 機 
能 は サポ ー ト され て いま す が , マ ル チ テ キス トマ ル チ ウ ィ ン ド ツウ 機能 を 有効 に 活用 する た め に , 
複数 の テキ スト に 対し て 同時 に 1 つの 文字 列 を 検索 し た り 置 換 す る こと が で きま す . 




















B. つ X-BABIO の 拡張 


X-BASIC は , 外部 関数 を 組み 込む こと で 関数 を 拡張 する こと が で きま す . 本 書 の 4 章 で も 人 外部 
関数 を 作る 例 を 紹介 し まし た が , 市 販 の 外部 関数 パッ ケー ジ を 使っ て , も っ と 手軽 に 拡張 する こ 
と も で きま す . 

ここ で は , 拡張 関数 パッ ケー ジ (開発 : 株 式 会 社 計測 技研 ) の 概要 と 使い か た の 事例 を 紹介 す 
る むと 必 > し ま 。 レ dj。。 





B..1 拡張 関数 パッ ケー ジ の 使い か た 


拡張 関数 パッ ケー ジ は 。 外部 関数 の 本 体 (XFUNC.FNC) と その ドキ ュ メ ント ファ イル や サン 
プル プロ グラ ム が は いっ て いる フロ ッ ピ ー デ ィ ス ク と ,。 その マニ ュ ア ル で 構成 され て いま す . 
XFUNC.FNC を 組み 込む こと で 使え る よう に な る 関数 は , 表 6.1 の よう な も の で す . 



























































デー タ 変 換 

AKCNVS ANK 文字 を 全角 文字 に 変換 し て 返す 

ARRAYS 配列 の 内 部 表現 を 文字 列 に 変換 し て 返す 

BINAS$ 数 値 の 2 進 表現 を 文字 列 で 返す 

HEXAS 数 値 の 16 進 表現 を 文字 列 で 返す 

HEXCHR 文字 列 中 の 16 進 表現 を 変換 し て 配列 に 格納 する 
HEXCHRS 文字 列 中 の 16 進 表 現 を 変換 し て 文字 列 で 返す 
MSET 文字 列 中 の 一 部 分 を 別 の 文字 列 で 置き 換え る 
SETA 指定 され た アド レス より デー タ を 配列 に 転送 する 
SETM 配列 中 の 一 部 分 を 指定 され た アド レス へ 転送 する 
STOARRAY | 文字 列 を 配列 の 内 部 表現 に 変換 し て 格納 する 
STRPTR 文字 列 へ の ポイ ンタ を 返す 

VARPTR F float 型 へ の ポイ ンタ を 返す 

VARPTR 1! int 型 へ の ポイ ンタ を 返す 

VARPTR C char 型 へ の ポイ ンタ を 返す 

VARPTR S str 型 へ の ポイ ンタ を 返す 

VARPTR A float 型 , char 型 , int 型 の 一 次 元 配 列 の 要素 へ の ポイ ンタ を 返す 








メモ リア クセ ス 


6.2 X-BASIC の 拡張 





PEEK B 


メモ リ か ら 1 バ イト 読み 出す 





PEEK W 


メモ リ か ら 1 ワ ー ド 読み 出す 





PEEK L 


メモ リ か ら 1 ロ ング ワー ド 読 み 出 す 





POKE B 


メモ リ へ 1 バイ ト 書 き 込 む 





POKE W 


メモ リ へ 1 ワー ド 書 き 込 む 





POKE L 
JIS コー ド 関 係 


メモ リ へ 1 ロン グ ワ ー ド 書き 込む 





JIS 


全角 文字 の JIS コー ド を 数 値 で 返す 





JIS$ 


全角 文字 の JIS コー ド を 16 進 表 現 の 文字 列 で 返す 





JISTOSFT 
ファ イル アク セ 


JIS コー ド か ら シ フト JIS コー ド へ 変換 する 
ス 





LOADM 


ディ スク に 格納 され て いる ファ イル を メモ リ 上 に ロー ド す る 





SAVEM 
デバ イス や ドラ 


メモ リ 上 の 1 ブロ ッ ク を ファ イル と し て ディ スク に セー ブ す る 
イブ の 制御 





DEVI 


プ ブロッ ク デ バイ ス か ら 直 接 





DEVO 


| プロ ッ ク デ パイ ス へ 直接 書き 込む 





DRVCTRL 


ドラ イブ 状態 を チェ ッ ク や 設定 を する 





DSKI 


フロ ッ ピ ー デ ィ ス ク (2HD) か ら 直 接 読み 出す 





DSKO 


フロ ッ ピ ー デ ィ ス ク (2HD) へ 直接 書き 込む 





EJECT 


フロ ッ ピ ー デ ィ ス ク の イジ ェクト を 行う 





HDOFF 


ハー ド デ ィ スク の シッ ピン グ を 行う 





グラ フィ ッ ク の 


制御 








G OK 


グラ フィ ッ ク RAM が 使え る か どう か チェ ッ ク す る 





GETPAL 


パレ ッ ト デ ー タ を シフ ト の た め の 領 域 に コピ ー す る 





MOVLAP 


パレ ッ ト を 逆 シ フト する 





MOVPAL 
CRT 制御 


パレ ッ ト を シフ ト す る 





CHANNEL 


専用 CRT の チャ ン ネ ル を 変更 する 





CRT 


専用 CRT の 画面 モー ド を 切り 換え る 





FADE IN 


画面 の コン トラ スト を 変更 し ます 





FADE_ OUT 


画面 の コン トラ スト を 変更 し ます 





TVPW _OFF 


専用 CRT の 電源 を OFF に する 





TVPW _ON 


専用 CRT の 電源 を ON に する 





VOL 
キー ボー ド 制 御 





専用 CRT の 出力 音量 を 調節 する 





INKEY 


リア ル タ イ ムキ ー 入 力 を 行う 





KEYDELAY 1 


キー を 押し て か ら リ ピー ト が 始ま る まで の 時 間 を 設定 する 





KEYDELAY2 


キー リピ ー ト の 間隔 を 設定 する 





LED 


消灯 を 行う 





キー ボー ド 上 の 各 LED の 点灯 ・ 
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ADPCM 制御 
A CONT ADPCM の 再生 ・ 録 音 を 再開 する 

A END ADPCM の 再生 ・ 録 音 を 終了 する 

A STOP ADPCM の 再生 ・ 録 音 を 一 時 停止 する 
RS232C 制御 
COMGCHK RS-232C の 受信 バッ ファ に デー タ が ある か どう か チェ ッ ク す る 
COMGET RS-232C の 受信 バッ ファ か ら 1 バ イト 読み 出す 

COMLEN RS-232C の 受信 バッ ファ 内 の デー タ 数 を 返す 

COMPCHK RS-232C へ 送信 で きる か どう か チェ ッ ク す る 

COMPUT RS-232C へ 1 バイ ト 送 信 す る 

INITCOM RS-232C を 初期 化す る 

プリ ンタ 制御 
LPOUT プリ ンタ へ 直接 出力 を 行う 
OS 関係 
GETPDB 現在 実行 中 の プロ セス の 管理 ポイ ンタ の 先頭 アド レス を 返す 









































IOCS コー ル を 行う 





指定 され た 時 間 だ け 何 も せ ず に 待つ (ウェ イト ) 
テキ スト 画面 が 使え る か どう か チェ ッ ク す る 
100 分 の 1 秒 単 位 で 経過 時 間 を 返す 














表 B.1 XFUNO.FNO に 含ま れる 外部 関数 


外部 関数 の 組込み は , いた っ て か ん た ん で す . まず , マスター ディス ク に は いっ て いる XFUNC. 
FNC ファ イル を , 自分 の BASIC 起動 ディ スク の BASIC の ディ レク トリ (標準 添付 の 外部 関数 
が は いっ て いる ディ レク トリ ) に コピ ー し て , BASIC.CNF” に 次 の 一 行 を つけ 加え れ ば 組込み 
終了 で す . 


FUNC ニ XFUNC 


な お , この 外部 関数 を 使っ て 書い た プロ グラ ム は , BASTOC を 使っ て C 言語 の プロ グラ ム に 変 
換 す る こと は で き て も , コン パイ ル す る こと は で きま せん (拡張 され た 外部 関数 と 同等 の 機能 
持つ ライ ブラ リ が な いた め ). 
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. ど . 己 拡張 外部 関数 の 利用 例 一 ディ スク エディ ター 

ここ で は 。 拡 張 関数 パッ ケー ジ に 含ま れ て いる いく つか の 関数 を 利用 し て 。 ディス クエ ディ タ 
(DEDIT.BAS) を 作っ て み ま し た . 

X-BASIC は ,、 ディ スク を セク タ 単 位 で アク セス する 関数 を 備え て いま せん が , この 拡張 関数 
パッ ケー ジ に は , ブロック デバ イス を 直接 アク セス する 関数 が ある の で , それ ほど 苦労 せ ず に ディ 
スク エディ タ の よう な プロ グラ ム を 作成 する こと が で きま す 、 

この プロ グラ ム を 実行 する と , 6.1 の よう に ダン プリ スト が 表示 され ます . 
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B.1 DEDIT の 初期 画面 


初期 画面 の 右 隅 に 現在 の モー ド を 示す 表示 が あり ます . モー ド に は , 次 に 示す よう に 3 通り あ 
り ま す ., 


メイ ン モ ー ド … ドラ イブ や セク タ を 指定 する 
数 値 入 力 モ ー ド … 数 値 で デー タ を 入力 し , セク タ 単 位 で エディ ッ ト す る 
文字 入力 モー ド … キャ ラク タ で デー タ を 入力 し , セク タ 単 位 で エディ ッ ト す る 


メイ ン モ ー ド か ら 数 値 入 モー ド へ は いる の は , メ イン モー ド か ら \4? を , ま た, 数 値 入 力 モー 
ド か ら 文 字 入 力 モ ー ド へ は いる に は , 数 値 入 力 モ ー ド か らい ヾ ,” を 入力 し ます . 各 モ ー ド か ら 抜 け 
る に は ESC キー を 入力 し ます . 

DEDIT の 操作 は 10 キー と カー ソル キー を 主 に 使用 し ます ( 表 6.2). 
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メイ ン モ ー ド 
寺 ドラ イブ を 1 つ 進 め る (A: B:) 

ドラ イブ を 1 つ 戻 す (B: A:) 

100 だ け 先 の セク タ の 内 容 を 表示 する (LSN+100) 

100 だ け 前 の セク タ の 内 容 を 表示 する (LSN-100) 

10 だ け 先 の セク タ の 内 容 を 表示 する (LSN+10) 

10 だ け 前 の セク タ の 内 容 を 表示 する (LSN10) 

1 つ 先 の セク タ の 内 容 を 表示 する (LSN+1) 

1 つ 前 の セク タ の 内 容 を 表示 する (LSN1) 

数 値 入 力 モ ー ド に 入る 

LSN を 数 値 で 直接 入力 する 

1 つの セク タ に お いて 次 の 256 バイ ト を 表示 する 

1 つの セク タ に お いて 前 の 256 バイ ト を 表示 する 

終了 













































ー | せ |D| の | の | の |1OIO 














数 値 入力 モー ド 
0 一 9,。 AF 















入力 デー タ (16 進数 ) 
W, w ディ スク へ の 書き 込み 
1 カー ソル の 移動 
も 文字 入力 モー ド に は いる 
ESC メイ ン モ ー ド に 抜け る 
文字 入力 モー ド 
ーー ド 
ESC 

































カー ソル の 移動 
エディ ッ ト モ ー ド に 抜け る 











注意 : 文字 入力 モー ド で , デー タ と し て 入力 で きる 文字 は , キャ ラク タコ ー ド に お いて , $20 て $7F, $AO 
て $DF の 半角 文字 の み で ある . 


表 B. 己 DEDIT の 操作 方 法 


ここ で いう LSN と は Logical Sector Number の 略 で ,。 論理 セク タタ 番号 と いい ます . ディ スク 
上 の 物理 的 な フォ ー マ ッ ト で いう と , トラ ッ ク 0, サ イド 0, セク タ 1 より 論理 セク タ 番 号 と し て 
0 か ら 順 に 与え られ ます ( 図 6.2). 

DEDIT は 現在 の ドラ イブ や セク タ の 位置 か ら の オフ セッ ト を 指定 する こと で , 目的 の ドラ イ 
ブ や セク タタ を 選択 し ます . 

また , Human68k の 2HD フロ ッ ピ ー デ ィ ス ク の 標準 の フォ ー マ ッ ト は 1 セクタ 1.024 バイ ト 
で す が , この 1 セク タ の ダン プリ スト を 1 画面 に 表示 する こと は で き な い の で , 256 バイ ト ご と に 
4 分割 し て 表示 し て いま す . 1 セク 夕 内 の 表示 する 部 分 を 移動 する コマ ンド は ^.?” と ヾ ,? で す . 

数 値 入力 モ ー ド と 文字 入力 モー ド に お いて , エ ディ ッ ト す る 部 分 に は カー ソル が 表示 され ます . 
この カー ソル は , 16 進 ゲ ンプ と キャ ラク タダ ンプ の 2 つの 部 分 に 現れ ます が , 黄色 の カー ソル の 
ほう が 入力 可能 な モー ド で す . つま り , 16 進 ゲ ンプ の ほう に 黄色 の カー ソル が あれ ば 16 進数 で 入 




















308 








6.2 X-BASIC の 拡張 


物理 セク タ 
番号 


トラ ッ ク サ イド 





0 | | | 3 | 4 1 1 














1 8 9 10 1 | 12 1 11 14|l5 








0 | 17 16 REPPPHOOPHHEHE 











1 還 昌 還 に CCCPPE ま DEFPPPEEP POPICIDPE3PP3D COCCOPYXY3D 











| 内 の 番号 が 論理 セク タ 番 号 (LSN) 
図 . 己 論理 セク タ 番 号 の 割り ふり ( ら HD の 場合 ) 


力 で きま すし , キャ ラク タダ ンプ の ほう に あれ ば キャ ラク タ を その まま 入力 で きま す . 

また , 画面 に 表示 され て いる 内 容 を 変更 する だ け で は , メモ リ 上 の バッ ファ を 書き 換え て いる 
だ け に すぎ ず , ディ スク に 変更 結果 を 書き 込む に は , 数 値 入 力 モ ー ド で ヾ W? コマ ンド を 使用 し 
な けれ ば な り ま せん . 

な お , 不当 な ドラ イブ や セク タ を 選択 する と シス テム エラ ー が 発生 する こと が ある の で 注意 し 
て くだ さ い 。 


リス ト . ] ティ スク エ テ ィ タ 





ペッ が ※ 

2: char data(1924) …………… セク タ の 内 容 を 格納 する た め の パ ッ フ ァ 

3: int endflag eee 終了 し た か どう か を 示す フラ グ 

4: int drv, lsn, no … "drv は ドラ イブ 番号 , lsn は 論理 セク タ 番 号 , no は セク タ 中 の 表示 部 分 を 示す 番号 
1H 半 1 2 天 人生 人 2OOOCHOHCYOD X%, y は , 現在 注目 し て いる , 1 つの デー タ の 位置 を 指し 示す 
6 int eee 入力 され た キー コー ド が 代入 され る 

7: str command1, command2 

8: /* 

9: command1 = "-+986532" 
19: command2 = "419.。"+ chr$(&H1B) ………… IESC| キー の コー ド 
上 ironoamome 

13: initscr() | 
14: locate 84, 6 : print "Main" 画面 の 初期 化 

15: read(drv, lsn) : ch = dump(no, -1) | 
16: while endflag = 9 ………… コマ ンド ・ パ ー サ ー の ルー プ 


17: if jnstr(1, command1, chr$(ch)) <> 9 then { 
18: switch ch 





19: case "- : drv=drv - 1 

29: lsn = 

21: break ドラ イブ の 移動 
22: case +”: dry = drvy+ 1 

23: lsn = 

24: break 

25: case 9 : lsn = lsn+ 1 盟 

26・ break 

275 case 8 : lsn = lsn - 1 時 

28: break 

29: case 6 : lsn = lsn+ 19 

3: break | 
31: case 5' : lsn = lsn - 19 MO 
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32: break 

33: case 3 : lsn = lsn+ 1 

34: break 

35: case 2 : lsn = ]sn - 1 

36: break 

37: endswitch 

38: no = 

39: read(drv, lsn) : ch = dump(no, -1) 

49: if ch <> then continue 

41:  }】 else if instr(1, command2, chr$(ch)) <> 9 then 【 

42: switch ch 

43: case 4” : edit(dry, lsn,。 no) の oo エ デ ッ トモ ー ド に 入る 

44: ch = 

45: locate 84, 6 : print "Main"* 

46: break 

47: case "1 : locate 5 39 oo LSN を 直接 指定 する 

48: input "LSN = "ilsn 

49: initscr() 

59: locate 84, 6 : print "Main” 

51: read(dry, lsn) : ch = dump(no, -1) 

52: break 

59: case 「。 : no = nO + 1 ……… … セ クタ 中 の 表示 部 分 を 1 つ 先 に 進め る 

54: 6 ifno=4thenno=9: Isn=lsn+ 1 : read(drv, lsn 

55: ch = dump(no, -1) 

56: break 

57: ease し Fno Eno lomot セク タ 中 の 表示 部 分 を 1 つ 前 に 戻す 

58: ifno =-1thenno = 3 : Isn = lsn - 1 : read(drv, ls 
n 

59: ch = dump(no, -1) 

69: break 

61: case "9 : endflag =-1:ch=: break La 

62: case &HIB: endflag =-1 : ch=: break | 

63: endswitch 

64: if ch <> then continue 

65: ) 

66: ch = inkey(O) …… の …… 拡張 外部 関数 。・ リ アルタイ ムキ ー 入 力 

67: endwhile 

68: locate 19 

69: end 

79: /* 

71: func initser(O) ……l…i…| 画面 の 初期 化 

72: cls 

35 。 JDEIm も パ ++1 12 18 14 +5 16 417 18 +19 ra Tb Tc +d te +f : 234 
56789abcdef" 

74: locate 77, 1 

75: 。 print "DRV =”" 

76: locate 77, 3 

77: 。 print "LSN =" 

78: locate 77, 6 

79: print "MODE =" 

89: locate 9, 2 

81: for i=to 15 

82: print hexa$(1」 2 の) ee 拡張 外部 関数 .i の 16 進数 表現 の 下位 2 桁 を 表示 

83: locate 54, csrlin 

84: PPNNETI2T 

85: next 

86: endfunc 

87: /* 

88: func read(drv,。 lsn) ………… セク タ の 内 容 の 読込 み 

89: devi(drvy, lsn, data)……… 拡張 外部 関数 , drv( ドラ イブ 番号 ) と lsn( 論理 セ クタ 番号 ) で 

9: locate 84, 1 指定 され た と ころ か ら 配 列 data 読 込む 

91: print drwi”" 6 

92・ locate 84, 3 
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93: 
94: 
95: 
96: 
97: 
98: 
99: 
1 角 : 
1 : 
192: 
193: 
194: 
195: 
196: 
197: 
198: 
199: 
11: 
111: 
2 
113: 
114: 
115: 
116: 
117: 
118: 
119: 
129: 
121: 
122: 
123: 
124: 
125: 
126: 
127: 
128: 
129: 
139: 
131: 
132: 
133: 
134: 
135: 
136: 
137! 
138: 
139: 
14 衣 : 
141: 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
15%: 
151: 
152: 
153: 
154: 


155: 


print lsni" 

locate 83, 4 

print "&h”ihex$(lsn)j" が 
endfunc 
/* 
func jnt dump(no, flg) …………… 16 進 ダ ゲン プリ スト と キャ ラク タ ・ ダ ンプ リス ト の 表示 
0 も sd 

ifno<99or 3 <no then return 

for i=no*16tono*16+ 15 

本 inkey() 8 リア ル タ イ ムキ ー 人 入力 


if flg and (jnstr(1, "-+9865321.,", chr$(j)) <> の) then return(j) 
locate 9 2 + j mod 16 
print hex$(no): 
locate 6,2+ imod 16 
for」=i*16toi*16+15 
print hexa$(data(J)」 2 Pi mmmnnnrn data(j) の 16 進 表現 の 下位 2 桁 を 表示 (16 進 ダン プ ) 
next 
locate 56, 2 + j mod 16 
for」=i*16toi*16+15 
if ispr(data(jJ)) then { 
print chr$(data(j)): 
}) else { 


し 放 1 


print 


] 
| キャ ラク タ ・ ダ ンプ の 表示 


next 
next 
return(⑳⑰ 
endfunc 
/* 
func edit(drv, lsn, no) ……… 読 A ん だ セク タ の 内 容 の エディ ッ ト 
int i 
int ch, dat 
int endflag 
str datas 
locate 84, 6 : print "Edit" 
locate 79, 7 : print" (数 値 入力 ) " 
datas = "123456789Aa” + chr$(12) + "Bb/CcxDd-Ee+Ff=" 
endflag = 9 
while endflag = 
putdat(no, x, y, 1 の 
putch(no, x, y, 9) 
curflag = not curflag 
ch = inkey(O) ………… リア ル タ イ ムキ ー 入 力 
i = jinstr(1, datas, chr$(ch)) 
if9<iand i<29then 5 
if i<11 then { ] 
dat =i」- 1 
) else { 
dat =(i - 11) /3+ 19 





1i=no*256+y*16+x/2 { バッ ファ の 内 容 の 変更 
if xmod2=then { 
data(i) = dat * 16 + data(i) mod 16 
) else { 
data(i) = data(i) / 16 * 16 + dat 
} 
putdat(no, x, y, 3) : putch(no,。 xy,」 3) … "oo ダン プリ スト の 更新 
X =x+ 1 


Ifx=32theny=(y+1) mod 16 : x = 
) else if 'w =ch or 'W =chthen【 
locate , 19 
print "この セク ター を 書き 込ん で 大 丈夫 で すか ? (yes = RET/no = $ 
PACE)”" 
Tepeat 
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156: 1 = jnkeWGDe で リア ル タ イ ムキ ー 入 力 

57: if ji= 13 then devo(drv, lsn, data) ………… 拡張 外部 関数 drv( ドラ イブ ) と 

158: until j <> lsn( 論理 セク タ 番 号 ) で 指定 され 

159: locate , 19 た と ころ に , 配列 data の 内 容 を 

169: print ”" 書き 込む 

161: ch = 

162: ) else { 

163: if &HIB <= ch and ch <= &HIF then putdat(no, x, y, 3) : putch(no 
6518 8 

164: switch ch 

165: case HH1B : endflag = -1 : break ………… エディ ッ ト モ ー ド 終了 

166: case HIC:x=(x+1) mod 32 : break | 

167: case &HID:x=(X-1+32) mod 32: break| 

168: case &HIE : y = (y - 1 + 16) mod 16 : break | アー ノル 移動 

169: case &HIF :y=(Yy+1) mod 16 : break | 

179: Ga86 "nkghReCn0D Tooeomr キャ ラク タス 入力 

71 locate 79, 7 : print ” (数値 入 力 ) 

協 2: break 

9 endswitch 

174: } 

175: endwhile 

76 locate 79. 7 : print “ ン 

77: endfunc 

178: /* 

179: func ispr(ch) で 0 の mm 表示 可能 な キャ ラク タ か どう か の 判別 

189: if &H29 <= ch and ch <= &H7F then return(-1) 

81: if &HAH <= ch and ch <= &HDF then return(-1) 

82: return( の 

83: /* 

84: func putdat(no, WW5 6O01) の mmm 1 つの デー タ の 16 進 表示 (上 位 ま た は 下位 1 桁 の み ) 

85: int i 

186: locate 6+(x/2)*3+(x mod2), y+2 

87: color col 

88: i=data(no * 256+y* 16+x/2) 

89: if xmod2=gthen { 

99: printaheXa$(1 / 16。 0 か 5Ymm 「 の 16 進 表現 の 上 位 1 桁 の 表示 

91: }else 【 

92: print right$(hexa$(i」 2)」1) ……li i の 16 進 表現 の 下位 1 桁 の 表示 

93:』q) 

94: 。 color 3 

95: endfunc 

96: /* 

197: func putch(no, xy,」 col) …… om 1 つの デー タ の キャ ラク タ 表 示 

198: int i 

199: locate 56+x/2,.y+2 

299: color col 

291: iji=data(no*256+yx16+x/2) 

292: if jispr(i) then { 四 

293: ptYehrWC1D ooo 表示 可能 な 廊 字 は その まま 表示 

294: }else { 

295: [910 AKKO 表示 で き な い 文字 は ビリ オド を 表示 

296: )} 

297: color 3 

298: endfunc 

299: /* 

219: func kana(no) ………… キャ ラク タ で エディ ッ ト す る 

2115 も す 

212: jnt ch, dat 

213: int endflag 

214: locate 79, 7 : print ” (文字 入力 ) 

215: Ex 鈴 2 富 9 

216: endflag = 9 

217: while endflag = 
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218: 
219: 
22: 
221: 
222: 


224: 
225 
226: 
227: 
228: 
2e9: 
239: 
231!: 
282: 
233: 
234: 
235: 
236: 
237・ 
238: 
239: 
240: 
241・ 
242: 
243: 
244: 
245: 
246: 
247: 
248: 


putdat2(no, x, y, 9) 
putch(no, x, y, 1 の 
curflag = not curflag 
ch = inkey() …………… リア ル タ イ ムキ ー 入 力 
ifch <>then { 
putdat2(no, x, y, 3) 
putch(no, x, y, 3) 
switch ch 
case &HIB : endflag = -1 : break ……… キャ ラク タモ ー ド の 終了 
case &HIC :x =(x+2) mod 32 : break 
case HI1D : x =(x - 2 + 32) mod 32 : | 押 
case &HIE:y=(y - 1+ 16) mod 16 : | 
case &HIF:y=⑰+1) mod 16 : break 
default : data(no* 256+y*16+x/2) = ch 
putdat2(no, x, y, 3) : putch(no, x, y, 3) 
X =x+ 2 
ifx=32theny=(y+1) mod 16 : 
break 
endswitch 
endwhile 
locate 79.7 : print “" っ 
endfunc 
/* 
func putdat2(no,。 x,。y。col) 0 の 1 つの デー タ の 16 進 表示 (2 桁 ) 
locate 6+(x /2) * 83, y+2 
color col 
print hexa$(data(no * 256+y*16+x / 2)。 2)) …0 の til 
color 3 
endfunc 
/* 


ー ソ ル の 移動 


バッ ファ の 内 容 の 更新 
表示 内 容 の 更新 


16 進 表現 の 下位 2 桁 を 表示 
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B. つ パブ リッ ク ド メ イン ・ ソ フト ウェ ア 


ソフ トウ ェ ア を 手 に 入れ る 手段 と し て , 見 逃し て は な ら な い の は , パブ リッ ク ド メ イン ・ ソ フト 
ウェ ア (PDS) と 呼ば れん る も の で す . すでに , た くさ ん の PDS を 利用 し て いる 方 も ある と 思い ま 
す が , ここ で は , PDS の 定義 や , PDS を 入手 する 際 の 注意 に つい て , あら た め て 解説 する こと に 
全う 。 








B.3.1 PDS と は 


PDS と は , Public Domain Software の 略 で ,「 著 作 権 の 消滅 し た ソフ トウ ェ ア 」 と 訳せ ます . 
つま り PDS は ,. その ソフ トウ ェ ア を 作成 し た 人 が 著作 権 を 放棄 し , 営利 目的 で な けれ ば , 誰 で も 
無償 で 使う こと を 許し た ソフ トウ ェ ア と いえ ます . 

し か し , 実際 に は この 定義 に 当て は ま ら な いも の も あり ます . た と えば , プロ グラ ム 作 成 者 が 
完全 に は 著作 権 を 放棄 し て お ら ず , プロ グラ ム を 改造 する こと を 禁じ て いる 場合 や , PDS を 配給 
し て いる 組織 を 維持 する た め に 手数 料 を 支払 わな けれ ば な ら な い 場 合 が あり ます 








B.3. ら PDS の 入手 方 法 

PDS を 入手 する た め に は , パソ コン 通信 に 参加 する の が 一 般 的 で す . パソ コン 通信 は , 一 般 の 
電話 回 線 を 利用 し て , ホス ト 局 と パソ コン を 接続 し , メッ セー ジ な どの 書込み , 会 員 間 の 電子 メー 
ル の 交換 と いっ た サー ビス を 行っ て お り , 有名 な も の で は PC-VAN (日 本 電気 ),、 アス キー ネッ 
ト (アス キー) な どの 企業 が 行っ て いる も の か ら , パソ コン クラ ブ を 中 心 と し た 個人 が 運営 する 
も の な ど , 全国 に は 500 と も 1.000 と も ちい われ る 数 の ホス ト 局 が 点 在 し ます . し か し , どの ホス ト 
局 で も PDS が ある わけ で は あり ませ ん の で , 自分 の 目的 に よっ て 選択 する 必要 が あり ます . 

こ で は , X68000 ユー ザー ズクラブ `PEKIN? を 例 と し て 紹介 する こと に し まし ょ う . PEKIN 
NET に は 300 人 を 超え る メン バー が お り , 電子 掲示 板 に は , PDS 関連 の 情報 の ほか , 音楽 ゲー 
ム な ど ホ ビー を 中 心 と し た 一 般 的 な 情報 も 書き 込ま れ て いま す . 

な お , 1988 年 6 月 下旬 頃 の PEKIN NET に つい て 書い て あり ます の で , 利用 で きる PDS の 種 
類 , 内 容 な ど , 若干 異な る 場合 も あり ます の で 注意 し て くだ さい . 
























































on い ど ター ンプ ト 
パソ コン 通信 を 始め る た め に は , パソ コン 本 体 の ほか に “モデム” と 呼ば れる ハー ドウ ェ ア を 
葉 し な けれ ば な り ま せん . 












































6.3 パブ リッ ク ド メ イン ・ ソ フト ウェ ア 


モデ ム と は , コン ピュ ー タ と 電話 回 線 と を つなぐ ハー ドウ ェ ア で す 。 パ ソコ ン か ら の 出力 ( デ 
ジタル ) を 電話 回 線 で 伝え る こと の で きる 信号 (アナ ログ ) に 変換 し 。 ある い は 相手 側 か ら 送 っ 
て きた 信号 (アナ ログ ) を パソ コン の 読み 取れ る 信号 (デジ タル ) に 変換 する た め の も の で す . 

モデ ム を 選ぶ 際 に は , 通信 速度 を 調べ まし ょ う . 300bps, 1200bps,2400bps な どい くつ か の も 
の が あり ます が , PEKIN NET を は じ め 多 く の ホ スト 局 で は , 1200bps の モデ ム で あれ ば 十分 で 
9 

また , 多く の モデ ム は ,。 オー ト ダ イヤ ル な どの 制御 コマ ンド を 受け つけ る こと が で きる イン テ 
リジェ ント タイ プ が ほとん ど で す . この 制御 コマ ンド に も いく つか の 種類 が あり ます . 現在 最も 
一 般 的 で 使い や すい と 思わ れる の は ヘイズ AT コマ ンド と 呼ば れる も の で す . 

モデ ム を 用 意 で きた ら , それ を 動か す た め の ソフ トウ ェ ア (ター ミナ ル ソ フ ト ) を 用 意 し ます 。 

ー ミ ナル ソフ ト は , キー ボー ド か ら 入 力 さ れ た デー タ を RS-232C を 通し て モデ ム に 送信 し た 
り , モデ ム か ら の デー タ を 受け 取っ た りす る た め の ソ フト ウェ ア で す 。 基 本 的 に は 。 これ だ け で 
きれ ば よい わけ で す が , 使う に あたっ て は , ダウ ン ロ ー ド (ログ ) 機能 と アッ プロ ー ド (オー ト 
タイ プ ブ ) 機 能 を 備え を て いな いと 困る で し ょ う . ダウ ン ロ ー ド と は , 受信 し た デー タ を その まま ディ 
スク に 保存 する こと で ,。 逆 に , アッ プロ ー ド 機能 は ディ スク に 保存 され て いる 内 容 を 送信 する も 
90 補 、 

ここ で は , C Compiler PRO-68k に 付属 し て いる TERM.JX と いう ター ミナ ル ソ フ ト を 利用 す 
る こと に し ます . オー ト タ イ プ 機 能 は あり ませ ん が , ログ を と る 機能 は あり ます の で ,。 PEKIN 
NET か ら PDS の ター ミナ ル ソ フ ト を 入手 すれ ば よい で し ょ う . 



































5.3.4 PDS を ダウ ン ロ ー ド する まで 


ここ では, ター ミナ ル ソ フ ト に だ TERM.X, また , モデ ム は アイ ワ の PV-A1200 (1200bps。 へ 
イズ AT コマ ンド 準拠 ) を 使う こと に し ます . 

まず , 電話 回 線 と モデ ム と X68000 を 接続 し て くだ さい . 基本 的 な 接続 図 は 図 6.3 に 示し た と お 
り で す . 普通 の モデ ム は モジ ュ ラ ー ジ ャ ッ ク と 呼ば れる コネ クタ で 電話 回 線 と 接続 する の で 。 電 
話 機 が ロー ゼット に よっ て 接続 きれ て いる な ら , モジ ュ ラ ー ジ ャ ッ ク の 取り つけ 工事 を 電話 局 に 
依頼 し な けれ ば な り ま せん . 

ハー ドウ ェ ア の セッ ティ ング が 終了 し た ら , 次 は ソフ トウ ェ ア で す . まず ,。 モデ ム や ホス ト 局 
の 仕様 に 合わ せ て , RS-232C の 通信 方 式 を SWITCH コマ ンド を 用 いて 設定 し ます . た と えば 
PEKIN NET の 場合 に は , 次 の よう に オプ ショ ン を 指定 し て 実行 し ます . 





A> SWITCH _R ニ 1200 B8 PN S1 XON 


次 は , TERM.X を 起動 し ます . コマ ンド の 後に ダウ ン ロ ー ド し た 結果 を 書き 込 を ファ イル 名 を 
指定 し て くだ さい . 





6 章 周辺 の ソフ トウ ェ ア 






TEL 側 
屋内 の 電話 回 線 


X68000 ! 


図 B.4 モデ ム , 電話 回 線 , パソ コン の 接続 


A> TERM LOGFILE 








TERM.X は , 通信 中 で も F・8 キー で , ファ イル に デー タ を 書き 込む か どう か を 切り 換え る こと 
が で きま す の で , 必要 な 部 分 だ け ロ グ を と る こと も で きま す . 

TERM.X が 正常 に 実行 され , モデ ム が 正常 に 動作 し て いれ ば , キー ボー ド か ら 入 力 さ れ た 文字 
が その まま 画面 に 表示 され る は ず で す . その 状態 で 次 に 示す 文字 列 を キー ボー ド よ り 入 力 し て リ 
ター ン キ ー を 押し て くだ さい . 
































トー ン (プッ シュ ホン ) 回 線 の 場合 : ATDT034476182 
パル ス (ダイ ヤル ) 回 線 の 場合 :・ ATDP034476182 


この コマ ンド は, 指定 され た 電話 番号 で 電話 を か ける こと を 意味 し ます . 電話 機 を 用 いて 手動 
で 電話 を か ける の と 同じ こと で す . な お *A/” と 入力 する と , 前 回 か けた と ころ に も う 1 回 電話 
を か け な お し ます . 

*AT” は モデ ム に 対し て 送信 する 制御 コマ ンド の 最初 に か な ら ず つけ る 文字 列 。^DT?” と ヾ DP? 
は それ ぞ れ プッ シュ ホン 回 線 用 の トー ン 信 号 と ダイ ヤル 回 線 用 の パル ス 信 号 を 出力 する と いう 意 
味 の 文字 列 で ,. その 後 の 数 字 の 文字 列 は PEKIN NET の 電話 番号 で す . 
回 線 が つなが る と 画面 表示 は CONNECT?, 話し 中 な ど で 回 線 が つなが ら な い 場 合 は “NO 
CARRIER” と 表示 され ます . CONNECT の 文字 が 表示 され た ら , リタ ー ン キー を 何 回 か 押し ま 
す . する と , PEKIN NET か ら の メッ セー ジ が 表示 され , ユー ザーID の 入力 待ち に な り ま す . こ 
こ で も 指示 どおり に ユー ザーID と パス ワー ド を 入力 し ます . この 例 で は ゲス ト で ログ イン し ます 
(画面 6.1). 













































































6.3 パブ リッ ジ ク < ド イン < ソラ ドウ 中 ア 


Human68k for X68899 uersion 1. 李 
Copyright 1987 SHRRP/Hudson 


PRINTER DRIVER for X68999 uersion 1.8 
PRNLPT の ファ イル 名 で プリ ンタ 部 字 可 を で す 。 パ バッファ は 256K バ イト 使 
X6899 terminal U1.8 TERM .X を 起動 


RTDP834476182 Mr…… 電話 を か ける コマ ンド ( ダイ ヤル 回 線 の 場合 ) 
CONNECT 可 線 が 接線 され た 
OO ) 


MM 放 0N 夫 回 PEKIN NET か ら 送 られ て 
ゴ BBS JI 72 ト J1S が ]N* か コ ル 夫 デ ナ ト 239 by きた メッ セー ジ 
デフ 夫 IDEGUESTJ ポ 7- ト (99-2 全 ) デ LOGIN 妨 29"97 | 


User ID=GUESTJ 
Password= 
Your name=FOO 
last login=88/96/29 5: :96: 釣 
Perment Erupt Kieek ard 1 erebenenid05 Network 
北 京 
X68000 BBS 代表 (93)447-6182 2 4 時 間 運 転 


Host F-11BBS 3 回 線 128bps Flou 有 : modem 0 
大 阪 Nanno Neluork の ソフ トウ ェ ア で 稼働 し て いま 















































Im 





画面 B.1 PEKIN NET へ の ログ イン 














ログ イン で きる と , シス テム 管理 者 か ら の メッ セー ジ が 画面 に 表示 され ます . この メッ セー ジ 
は , これ か ら BBS な ど を アク セス する ユー ザー に 対す る 注意 事項 な ど な の で , ダウ ン ロ ー ド な ど 
を 行う まえ に よく 読ん で お く 必 要 が あり ます . 

さて , 最初 の メッ セー ジ が 一 通り 表示 され る と , 









































NET ・: 





と いう プロ ンプ ト が 表示 され ます . この 状態 で ヾ ?? を 入力 する と , 使用 で きる コマ ンド 一 覧 が 
表示 され ます . また , 各 コ マン ド の 後に \?? と いう パラ メー タ を つけ る と , その コマ ン ド の 使 
用 法 が 表示 され ます . 

で は 。 PDS の 1 つ を ダウ シン ロー 選定 れ し / で 用 5 う 。 まず ) NET ラジ と まう: プロ ンプ 下村 表 
示さ れ て いる 状態 で BBS” コマ ンド を 実行 し ます ,、 する と サ プ コ マン ド が 表示 され る の で 。 そ 
の な か の “t: ボー ド 一 覧 ”? と いう コマ ンド を 実行 する と 。 アク セス で きる ボー ド の 名 前 が 表示 き 
れ ま す (画面 6.2)、 この な か に PDS” と いう ボー ド が ある の で , これ を 見 て み ま し ょ う 
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し J 


つ へ 


で 〇 


NET:BBS 層 
BBS>L: ボ 


2 


ー フ 
ん 


2 si 選択 条件 設定 9: ディ レク トリ eiend 
ーーーー- PEKIN BORRD 一 覧 ーー 


宮 口 (RERD の 必 ず 読 素 ん で 下さ い ! 
人 ・ 半 情報 


リー トー ク 『 谷 ボー ド 
に な る X68K 情 報 


め 
アイ ド 全局 マン ガ ・ 映 画 ・SF 
培 ー GE …. ゲ ー ム 一 役 


PD 


RKIRR ・ 
BBS>t: 4 半 


select 


ON・ 維 PUS ・…・ 
1 業 1 PE 
… あ き 


ら の 部 屋 RBTERM・…RBTerm maintenance 
し 覧 s: 選 択 条件 設定 9: デ ィ レ クト リ eerd 





画面 . 巳 ボー ド の 一 覧 


Yselect=? と 表示 きれ て いる 状態 で . “D” と 入力 し て リタ ー ン キー を 押し ます . する と ボー ド 
名 を 聞い て くる の で “PDS? と 入力 し て リタ ー ン キー を 押す と ,。 ボー ド 内 の ファ イル 一 覧 が 表示 
され ます (画面 6.3). 


le si 選択 条 件 設定 9: デ ィ レ クト リ eiend 
ecl= 
ボー ド 名 =PD 
ボー 名 こ 68089 PUBLIC DOMAIN SOFTMRRE 
昌 大 ファ イ ル 数 =999 現在 フ の ル 数 =262 最大 パイ ト 数 = 5 現在 バイ ト 数 =4367KB 
到 DD 


1 TRIRYRNO 魚 88/06/26 S-J 
SRUISHI 去 88/6/26 S-J 








2 
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4 
人 
6 
7 N 
8 
9 ON 
S 
1 
2 
3 N 
4 
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5 
2 
8 
9 MI 
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1 
1 
1 
1 
1 
1 
1 
1 
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ILKY 
RTN>Break … 





BBS>(b/g/ 





二 形式 BYTE 数 タイ トル 


1957 と 1 人 寺 19 bu 半 き く 
17183 カス ケー ド ログ ラ 
77467 X1Z Z" の を 人 63000 で 
3555 クリ ッ ク . XX 
7792 RDDDRV U1. 内 er。 UP) 
12185 JNN CE 


Pine 88766725 S-J 
狂 温 昌 
RYO 
去 石 


な り げ ん 
Panic 


さき - 
2 


X 

の 68K。 M.DIC つ E1.DIC コン バー タ 
8852 CRL.X(BUG FI%) 
7141 Shooting Star 68k (ish&arc) 
21929 本 和議 還 和 小 人 

47845 akira's uoice data 前 の と 同じ 
48566 akira uer 1.59 
22689 7z 人 1 ィ 9ー ガ ーー ツ " ョ y ア 2" ポッ 
1665 bootmenu(ish & arc) 

1817 exmaks.x(ish & arc) 

4992 fon.x(ish & arc) 


To ざと 党 い 
コ で fotoy コ 、 


ご ど ※ 


当 














c c c て C.C. し で う て 
で うう つて の CC うつ で つて うく の くう くう くう で の O う の つく の 〇 つう て う C の うく の 





か 選 思 密 o ロ の 衣 井 


QNONeN 
プペ ヘッ ペン マ 


88/6 S 
CTRL 十 C で と め た 
n/c/a/w/s/m/e/q/?) No.= 


に CI OUU WCH WS1 WSU 敵 呈 Full 上 PrnOff 胃 UrOOn 四 (CommandEnd 





画面 B.3 ファ イル 一 覧 


6.3 パブ リッ ク ド メ イン ・ ソ フト ウェ ア 


さて , 図 6.5 の な か か ら 1 番 の ファ イル を 選ん で ダウ ン ロ ー ド し て み ま す . TERM.X が ログ を 
と る 状態 に な っ て いる こと を 確認 し て , 1 を 入力 し ます . する と BBS に 掲載 され て いる 1 番 の 
ファ イル の 内 容 が 画面 に 表示 きれ ます . 一 見 し た と ころ , 無 意 味 な 文字 が 画 
れ て いる よう に 見 えま す が ,。 これが アッ プロ ー ド され て いる PDS の 形 な の で す (画面 6.4). 通常 
は , バイ ナリ デー タ を 書 込 む せこ と が で き な い の で ,。 この よう に し て テキ ス 
ん で ある わけ で す . ホス ト 局 に よっ て は , バイ ナリ デー タ の まま 書き 込み の で きる と ころ も あり 


まず 。 


さて 。 























昌 
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C>TYPE LOGFILE 
BBS>(b/g/t/Ln/c/a/w/s/m/e/q/?) No.=13 罰 
fco. 88/96/15 S-JIS 11365 sanple program 


<<< foo.arc for Human58K ( use shift_jis ish ) [ 146 1ines ] Human68 uer1.11 >>> ] 
HHoNsHtUH:%H2u4j7LH%8) 「c ミ IH:NL%gF uHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHDOd 
HHgNaHLUH: 旨 Qu 村 72LH2) 「cSiH:NL を gFuHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHRHHHHHHDUd 
HHoN&HLUH:%Hu お 7tH%&) 「c ミ i%H:N【 多 MM 1 
2 上 He9fA RSFP 滞 2 折 U。Y'C 人 ん zo 様 r 栃 吊 /DAbOR 事 う 則 本 o2J 半 他 K ぐ / 
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BBS>(b/g/t/tn/c/a/w/sS/m/e/q/?) No.= 


面 い っ ぱい に 表示 さき 














ト デ ー タ と し て 書き 込 


この 部 分 が ISH に 
より 生成 され た 


1 し 1 OU WO WS| WU | 





画面 B.4 PDS を ダウ ン ロ ー ド 


し た こと に な り ま す . あと は , 必要 が な けれ ば END, また は LOGOFF と 
る と 電話 回 線 が 切ら れ , アク セス は 終了 し ます . 


B.3.5 プロ グラ ム を 実行 する まで 


さて , ダウ ン ロ ー ド の と き に 画面 いっ ぱに 見 えた 無 意 味 そ うな 文字 が , 


る 部 分 で す . 
ど が 1 つの ファ イル に まとめ て 圧 























これ は , 使い か た な ど が 書か れん た ドキ ュ メ ント ファ イル , 実 











最後 まで 表示 し 終わ る と , ふた た び NET : と いう プロ ンプ ト が 表示 され ます . これ で , 


いま まで 画面 に 表示 され た 内 容 が ファ イル に 記録 きれ て いま すか ら , これ で ダウ ン ロ ー ド は 成功 


と ピス ーー ュー 


い ゅ いう コマ ンド を 実行 す 


ン 


私 た ち が 必 要 と し て v 
行 フ ァイル 。 デー タ な 


給 さ まれ, さら に テキ スト ファ イル に 変換 され て た も の な の で す . 


この よう に する こと で , 手間 を か けず に , 必要 な ファ イル を 短 時 間 で ダウ ン ロ ー ド する こと が で 
きる わけ で す . 
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6 章 周辺 の ソフ トウ ェ ア 


PEKIN NET で は , ファ イル の 圧縮 と 複数 の ファ イル の 連結 に “ZOO.X” や ヾ ARC.X?,。 その 
ファ イル を テキ スト 形式 に 変換 する も の と し て “HC6.X” や “ISH.X” と いう プロ グラ ム が 利用 
され て いま す . PDS を ダウ ン ロ ー ド し て みよ うと する 方 は , まず これ ら の プロ グラ ム を 手 に 入れ 
な けれ ば な り ま せん . 一 般 的 に は すでに 持っ て いる 人 に コピ ー さ せ て も ら う の が か ん た ん で し ょ 
う . も ちろ ん PEKIN NET に も あり ます の で , まず ダウ ン ロ ー ド し て し まう の も いい か も し れ ま 
せん . 
プロ グラ ム の 作者 が アッ プロ ー ド 時 に 使用 し た 方 法 の 逆 を た どり な が ら , 実行 ファ イル , ドキ ュ 

ント ファ イル を 取り だ し ます . 

た と えば , ARC+ISH で 圧縮 し , テキ スト ファ イル 化 さ れ て いる も の は , まず , ISH で テキ ス 
ト フ ァイル か ら 圧 緒 きれ て いる バイ ナリ ファ イル に 変換 し ます . ISH は ,。 よけい な テキ スト が 前 
後に 書か れ て いて も 必要 な 部 分 だ け を 判別 し て くれ ます か ら , エディ タ な ど で 不 必要 な 部 分 を 消 
す よ うな 必要 は あり ませ ん . 

次 に ARC を 使っ て 圧縮 ファ イル か ら 通 常 の ファ イル に 戻し て や り ま す . 圧 緒 を 解く と , 実行 可 
能 フ ァイル や ソー スリ スト , ドキ ュ メ ント な どの 複数 の ファ イル が 現れ ます (画面 6.5). 

この よう に ARC を 使う と, 1 つの 小包 の よう に し て 複数 の ファ イル を 送る こと が で きる の で 非 
常に 便利 で す . これ は 通信 を する 場合 以外 で も , 自分 の 作っ た ソー ス フ ァ イル や デー タフ ァイル 
な ど を まとめ て お く 場 合 に も 有効 な 方 法 で し ょ う . ファ イル を 復元 で きた ら , あと は ドキ ュ メ ン 
ト フ ァイル を よく 読ん で , 実行 する だ け で す . 















































C>TYPE LOGFILE 
BBS>(b/g/t/tn/c/a/M/s/m/e/q/2) No.=13 

foo. 88/96/15 S-JIS 11365 sanple program 
NRBLUH3HOMCLR) Ne * HHRHHNOHBHHHBHBHHHHHNHHHHHRHDHOHHHHHHHEF ニ 


HHoN&HLUH:%HuzXotH%8) 「Nr」 紺 :NHDDpxHHHHHHHHHHHHHHHMNHHHHHHHHHHHHHHHHHHHHHHHHrF= 
HHoN&HtUH:%HuXotH%8) mi:NHHDpxHHHHHHHHHHHC 





> 
61H LOGFILE /a 回 LOGFILE 中 の , すべ て の 1SH 変 換 さ れ た ファ イル を と り 出 す 
ish file conuerter for Human68K Uer1.111 
original idea Bu NM.ishizuka(for 人 S-DOS) 
copvright 1988 - Pekin - (bu Ken+Gigo) 
ified (for "speed up ) by 0bj. 
Special thanks for Y.Mamoto (acky) 
く Restore_ from LOGFILE > 
<<< FOO.RRC from MS-DOS ( use shift-jis ) 88/96/39 12: 99: 9 9229 bute >>> 
FOO.RRC : oo Finished. LOGFILE よ り F00.ARC が 出力 され た こと が わか る 








C> 
C>RRC e FOO0.RRC F00.ARC に 含ま れる ファ イル を すべ て 抽出 する 
昌 出 : FOO.C 





画面 B.5 ISH と AHC を 使っ た 実行 可能 ファ イル の 取出 し 
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6.3 パブ リッ ク ド メ イン ・ ソ フト ウェ ア 


B.3.5 PEKIN NET に ある PD8 

ここ では, PEKIN NET に アッ プロ ー ド され て いる PDS の うち ,。 インテリ ジェ ント な ター ミ 
ナル ソフ ト や ダウ ン ロ ー ド する 際 に 必要 と な る ソフ ト な どの 一 部 の も の を 紹介 し ます . なお, ネッ 
トワ ー ク に アッ プロ ー ド され る ソフ トウ ェ ア は 非常 に 速い ペー ス で バー ジョ ン ア ッ プ や デバ ッ グ 
が 行わ れる の で , 紹介 し て いる ソフ ト の 仕様 が 変わ っ て いる 場合 も ちあ る の で 注意 し て くだ さい . 

また , ソフ トウ ェ ア の 転載 や 改造 の 際 に は , ドキ ュ メ ント な ど に 記述 され て いる 注意 事項 を 厳 
守 し て くだ さい . 

な お , ここ で 紹介 し て いる PEKIN NET に 掲載 され た プロ グラ ム の 著作 権 は 放棄 され て いま 
せん . 基本 的 に 著作 権 は プロ グラ ム 作 成 者 か PEKIN NET に あり , な か に は 転載 し て は いけ な い 
プロ グラ ム も ある の で に 注意 し て くだ さい . 











一 ター ミナ ル ソ フ ト 

本 章 で 使っ た TERM.X は ダウ ン ロ ー ド が で き て も , アッ プロ ー ド が で き な い な ど , 実際 に ネッ 
トワ ー ク に アク セス する に は ちょ っ と 役不足 で す . そこ で PEKIN NET に アッ プロ ー ド され て 
いる “ABTerm” と いう ター ミナ ル ソ フ ト を 使う と よい で し ょ う . 

この ソフ トウ ェ ア は , あら か じ め 設 定 さ れ て いる ネッ トワ ー ク を 選ぶ こと に よっ て ,。 通信 モー 
ド の 設定 と ダイ ヤル を 自動 的 に 行う こと が で きま す . も ちろ ん , アッ プロ ー ド や ダウ ン ロ ー ド と 
いっ た 機能 もち あり, ファ ンク ショ ン キ ー で 選択 する だ け で 行う こと が で きま す . 

また , XMODEM プロ トコ ル と いう バイ ナリ デー タ を 転送 する た め の プ ログ ラム を 内 蔵 し て い 
ます の で , XMODEM プロ トコ ル を サポ ー ト し て いる BBS と な ら , バ イナ リ デ ー タ の や り と り が 
で きま す . そし て ユー ザー に と っ て 最も あり が た い の が , ソー スプ ログ ラム も つい て いる と いう 
と と で す 、 

















画 デー タコ ン バ ー タ 

実行 ファ イル な どの バイ ナリ ファ イル を や り と りす る た め に は , ちょ っ と 工夫 が 必要 で す . 1 つ 
は , XMODEM プロ トコ ル な ど を 使う 方 法 が あり ます が , も っ と 手軽 に 行う た め に は ,。 バ イナ リ 
ファ イル か ら テ キス ト フ ァイル に 変換 し て や る 必要 が あり ます . 

BBS 上 に は , 現在 この よう な テキ スト ンプ バ イナ リコ ン バ ー タ と し て , HC6 と ISH が あり ます . 

HC6 は , 8 ビッ ト の デー タ を 6 ビッ ト ず つ に 区 切っ て , それ に $30 を 足す こと で , バイ ナリ デー 
タ か ら $30-$6F で 表 さ れる テキ スト デー タ へ 変換 し ます . 

ISH は , HC6 より も 変換 効率 を 高め た も の で ,。 さら に チェ ッ ク サ ム に よる 誤り 訂正 と , CRC に 
よる 強力 な 誤り 検出 を 行う こと に より , 1 ブロ ッ ク 当 り 2 行 ま で の エラ ー を 訂正 し て くれ ます . で 
すか ら ,。 途中 で ^ 文 字 ば け ” な ど が あっ て も 完全 に 復元 し て くれ ます . その 上 , 入力 ファ イル 中 
か ら 複 数 の ISH 型式 の ファ イル を 識別 し ます か ら , login か ら 1ogout まで の ログ ファ イル に 。 一 
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こり 


トゥ っ 





6 章 周辺 の ソフ トウ ェ フ 





度 に ISH を か ける こと も で きる の で す 


田 アー カイ バ 


C Compiler PRO-68k に 付属 し て いる AR に よく 似 て いま す が , ZOO も ARC も 複数 の ファ イ 
ル を 圧縮 し た 後に 1 つの ファ 


ル に まとめ る の で , 実行 ファ イル , 








ソー ス フ ァ イル , 
ト な どの よう に 関連 する ファ イル を まとめ て 保存 し た りす る 場合 に 有効 で す . まだ た, 
た ファ イル の な か か ら , 必要 な ファ イル だ け を 抽出 する こと も で きま す . 





ドキ ュ メ ン 
まとめ られ 








MS-|DOS か ら の ソフ トウ ェ ア 移 植 


XBB0O0O に は , 過去 の ソフ トウ ェ ア 資 産 と いう も の が まっ た 
く あ り ま せん . より か ん た ん に ソフ トウ ェ ア 資 産 を 増やす に は , ご 
うす れ ば よい の で し ょ うか . 盛 章 で 紹介 し た P ロ 己 を 利用 する こと 
いう の も 1 つの 手 で す . も う 1 つ は , 他 機 種 用 の プロ グラ ム を 移植 
する ここ と が 考え られ ます . プロ グラ ム の ソー スリ スト に 少し 手 を 加 
えて や る だ け で XB800O 上 で 実行 で きる と し た ら , これ ほど 楽 
に ソフ トウ ェ ア 資 産 を 増やせ る 方 法 は あり ませ ん . 
ーー こと で は , MB- で 記述 され , MG- DOS (ver..1 1) 上 で 
動作 する プロ グラ ム を X- ロ へ 移植 する 方 法 に つい て 考え る ご と に 
し まし ょ う . 
















7.2 移植 上 の 問題 点 


フ . ] 移植 の 可能 性 


これ まで 68000CPU を 採用 し た パソ コン は 少な く , も ちろ ん Human68k が 動作 する マシ ン は 
皆無 で す 。 し か し , せめ て も の 救い は , Human68k が MS-DOS (ver.2.11) を モデ ル に し て 作ら 
れ た と いう こと と ,。 Human68k 上 で 動作 する C コ ン パ イラ が 存在 し て いる と いう こと で す . 

Human68k と MS-DOS は , ファ イル シス テム や 文字 セッ ト が ほぼ 同じ で , Human68k の DOS 

コー ル と MS-DOS の シス テム コー ル も 似 て いま すか ら , 移植 時 に 問題 に な る DOS の 違い は それ 
ほど 多く あり ませ ん . 

C コ ン パ イラ に 関し て いえ ば , MS-DOS 上 で 動作 する 主要 な C コ ン パ イラ の 1 つ で ある Mi- 
crosoftEC コ ン パ イラ (MS-C) と よく 似 た 言語 仕様 に な っ て いま す . 双方 と も , ANSI で 進行 し 
て いる 標準 規格 を 取り 込ん で いる の で ,C 言語 の ソー スプ ログ ラム ・ レ ベル で な ら 移 植 は 可能 で あ 
る と いえ ます . 


























フ . 移植 上 の 問題 上 


X-C と MS-C で 違う 点 と し て あげ られ る の は , 何と いっ て も ター ゲッ ト と な る CPU の 違い で 
す . それ ぞ れ , X-C は 68000CPU, MS-C は 8086 プ 8088。80186 プ 80188, 80286CPU が ター ゲッ 
ト と な っ て いま す . この 2 つの CPU は 開発 し た メー カー まで 違い .、 も ちろ ん マシ ン 語 や アセ ン ブ 
リ 言語 で の 互換 性 は まっ た く あ り ま せん . C 言語 で は , CPU の アー キテ クチ ャ に 依存 し た プロ グ 
ラム が 記述 で きる の で , CPU の 種類 が 違う と いう の は , 移植 時 に 大 き な 影 響 を 及ぼ し ます . 

次 に 違う 点 と し て は , DOS の 違い を あげ る こと が で きま す . す で に 述べ た と お り Human68k と 
MS-DOS(ver.2.11) は よく 似 た DOS な の で , CPU の 違い ほど 深刻 な 問題 で は あり ませ ん . た だ , 
MS-DOS の シス テム コー ル を 使用 し て いる 場合 に は , Human68k の DOS コー ル で 置き 換え な け 
れ ば な り ま せん . 

また , C コン パイ ラ の 仕様 の 違い に も 注意 を 払わ な けれ ば な ら な いで し ょ う . 言語 仕様 は X-C 
と MS-C で は それ ほど 違い は あり ませ ん が , ライ ブラ リ が 多少 違っ て いま す . 














7 章 MS-DOS か ら の ソフ トウ ェ ア 移 植 


フ . つ CPU の 違い 


68000CPU と 86 系 CPU の 決定 的 な 違い は ,。 アド レス の 概念 で す . 86 系 CPU で は 。 セグ メン 
ト と オフ セッ ト と いう 2 つの デー タ か ら ア ドレ ス を 求め て いま す . 1 セグ メン ト は, 64K バイ ト で 
す が , セグ メン ト を 変え れ ば 1M バイ ト の メモ リ 空 間 を アク セス で きま す .。 し か し , そう し た 操 
作 を 行う 必要 が ある 分 , 実行 速度 が 遅く な っ て し まい ます . また , セグ メン ト と オフ セッ ト の サ 
イズ の 合計 は 16 ビッ ト を 超え ます が , 86 系 CPU は , 16 ビッ ト よ り 大 きい サイ ズ の デー タ を 扱う 
の が 非常 に 苦手 な の で , そこ で も 実行 速度 の 低下 が 起こ り ま す . 

それ に 比べ 68000CPU は , 物理 的 に は 16M バイ ト の メモ リ を 直線 的 に アド レス する こと が で 
き , し か も アド レッ シン グモ ー ド が 豊富 な の で , 86 系 CPU より は る か に か ん た ん に 64K バイ ト 
以上 の プロ グラ ム や デー タ を 扱う こと が で きま す 。. 














ノ .d.] プロ グラ ム の 大 き さ の 制限 

8086CPU で は , セグ メン ト と いう や っ か いな 存在 の た め , プロ グラ ム の 大 きき さ に 制限 が 生じ ま 
す . MS-C に は メモ リモ デル (スモ ー ル , ラー ジ , ヒュ ー ジ な ど ) と いう 概念 が あり 。 プロ グラ 
ム の 大 き さ に 合わ せ て 適切 な が メモ リモ デル を ユー ザー 自身 が コン パイ ル 時 に 選択 し な けれ ば な り 
ませ ん . 

え -C で は , コー ド 部 や デー タ 部 の 大 き さ を 制限 する の は , メモ リ の フリ ー エ リア の 大 き さ だ け 
で , 68000CPU の アー キテ クチ ャ に よる 制限 は な く , プ ログ ラム を 読み 込ん で 実行 する の に 必要 な 
メモ リ さ え あ れ ば よい こと に な り ま す . し か し , 次 に 示す よう に 又 -C の 処理 系 に よる 制限 が 若干 
あり ます . 





田 ヒー プ 領 域 の 問題 

malloc 関数 な ど で 使用 する ヒー プ 領 域 は 標準 で 64K バイ ト だ けし か 用 意 き れ な い の で , それ 
以上 に 必要 と する プロ グラ ム は , コン パイ ル 時 の オプ ショ ン ( コ ン パ イラ ドラ イ バ の ノン h オプ ショ 
ン ) で 領域 を 確保 し な けれ ば な ら な り ま せん . ちな み に , スタ ッ ク 領 域 も 同様 に コン パイ ル 時 の 
オプ ショ ン (コン パイ ラド ライ バ の /s オプ ショ ン ) で 大 き さ を 変更 する こと が で きま す . 











画 自動 変数 の 大 き さ の 問題 

1 つの ブロ ッ ク 内 で 定義 され る 自動 変数 の 合計 の 大 き さ が 32K バイ ト 未 満 で な けれ ば な り ま 
せん . 関数 内 で 大 き な 自 動 変数 の 配列 を と っ て いる 場合 は , 外部 変数 に する か スタ ティ ッ ク 変 数 
に する な どの 変更 が 必要 で す . 
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7.3 CPU の 違い 


ノ . 紀 . 己 バイ ト オ ー ダ ー 

68000CPU と 86 系 CPU (と いう より は 68 系 と 80 系) で は 16 ビッ ト 以 上 の デー タ を メモ リ に 
格納 する と き の デ ー タ の 並び か た が まっ た く 違 いま す . この デー タ の 並び か た に 依存 し た 記述 が 
ある 場合 は 変更 が 必要 で す . た と えば 図 7.1 の よう に , 違う 型 の ポイ ンタ の 代入 を 単純 に 行う と 
MS-C と 区 -C て 実行 結果 が 違っ て し まい ます . 





1 能 
static char s[2]= ( メモ リ 中 の 状態 


S s 十 1 


0x12, 0x34 ーー 一生 
0x12 0x34 
了 Le34 | 


実行 放 

short *p 三 &s[O] : (、 実生 結果 ) 
ka @8086 

*p 三 3412 

@68000 

*※p 三 1234 





printf(~*p ニ の x\n? *D): 











図 ノ .1 B8 系 と 0 系 PPU の バイ ト オ ー ダ ー 


ノ .3.3 奇数 アド レス か ら の ワー ドア クセ ス 

86 系 CPU で は 。 奇数 アド レス か ら も ワー ドア クセ ス , つま り 16 ビッ ト 単 位 で アク セス する こ 
と が で きま す が , 68000CPU で は アド レス エラ ー が 発生 し て し まい ます . 

た と えば , char 型 の ポイ ンタ が 指し 示す と ころ か ら int 型 で アク セス する と , アド レス エラ ー 
が 発生 する 場合 が あり ます . 


ノ . ヨ d. オ デー タタ イブ の 大 き さ 

C 言語 で は , int 型 や char 型 と いっ た デー タタ イプ の 大 き さ が 明確 に 定義 され て いま せん . デ ー 
タタ イプ 同士 の 大 小 な ど は 定義 され て いま す が ,int 型 の 大 き さ が 何 ビ ッ ト で ある か な どの 具体 的 
な 定義 は な され て お ら ず , CPU や マシ ン に 依存 し て いま す (int 型 の 大 き さ は , ター ゲッ ト の CPU 
に と っ て 一 番 自 然 な 大 き さ に な っ て いる )、 

- し と MS-C で も int 型 の 大 き さ に 違い が あり ます . XX-C で は int 型 が 32 ビッ ト で ある の に 
対し て , MS-C で は 16 ビッ ト で す ( 表 7.1). 

この 場合 , X-C の ほう が MS-C よ り int 型 の サイ ズ が 大 きい の で , 移植 時 に 問題 と を る こと は 
少な いと 思わ れ ま す . 
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大 き さ (単位 は バイ ト ) 
8086 (MS-C) | 68000 (X-C) 
char 1 
int の 4 
short 2 2 
long 4 4 
float 4 4 
double 8 8 


表 プ .1 各 デ ー タ タイ プ の 大 き さ 


フ . ノ | DOB の 違い 


Human68k は , MS-DOS (ver.2.11) と いろ いろ な 面 に お いて 類似 し て いま す が 。 フ ァイル シ 
ステ ム や ファ ンク ショ ンコ ー ル ,。 プロ セス の 扱い な ど に 若干 違い が 見 られ , 移植 する 際 に 問題 に 
な る こと が あり ます . 以下 で は その 違い を 解説 し ます . 











ノ . イ .] ファ イル シス テム の 違い 
Human68k は , MS-DOS と 似 て いる と は いっ て も , 相違 点 は や は り 存 在 し ます . ここ で は , ファ 
イル シス テム に つい て , 移植 上 の 問題 点 を あげ て みる こと に し まし ょ う . 


一 ファ イル 名 に 関す る 違い 

MS-DOS で は ,。 ファ イル 名 は ノー ド CFOO.DOC* と いう ファ イル 名 の 場合 。 *FOO” が ノー 
"で “DOC” が 拡張 子 ) が 8 文字 分 , 拡 張子 が 3 文字 分 と いう 構成 に な っ て いま す . ファ イル 名 
の 英文 字 は 大 文字 し か 許さ きれ て いま せん . それ に 対し て Human68k で は , ノー ド の 大 きき さ が 拡 
張 され , 18 文字 分 まで , ファ イル 名 中 の 半角 英文 字 は 大 文字 で も 小文字 で も よい こと に な っ て い 
ます . た だ し , ファ イル 名 の 区 別 は MS-DOS と 同じ で , ノー ド が 半角 8 文字 の み , 半角 英文 字 は 
大 文字 小文字 が 区 別 き され ませ ん . つま り ヾ FOOFOOFOO.JDOC* と ^FOOFOOFOA.DOC*。 ま た, 
~foofoofo.doc” は すべ て 同じ ファ イル を 指し て いる も の と みな され て し まい ます . 

し た が っ て , ファ イル 名 に 含ま れる 半角 英文 字 が , か な ら ず 大 文字 で ある と 仮定 レ し て いる プロ 
グラ ム で は , 半角 英文 字 の 小文字 を 大 文字 に 変換 する と いっ た 修正 が 必要 で す . も ちろ ん ディ ス 
ク 内 の ディ レク トリ エン トリ の 構造 も 部 異な っ て いる の で ,。 ディ スク か ら セ クタ 単位 で 読み 書 
き し て いる プロ グラ ム に は 注意 が 必要 で す 。 










































































7.4 DOS の 培い 


一 ディ スク フォ ー マ ッ ト の 違い 

MS-DOS で は , 記憶 容量 の 違う ディ スク ドラ イブ に 対応 する た め , 複数 の ディ スク フォ ー マ ッ 
ト を サポ ー ト し て いま す が , Human68k は , X68000 専用 の DOS な の で , MS-DOS ほど 多く の 
ディ スク フォ ー マ ッ ト を サポ ー ト し て は いま せん . つま り MS-DOS と Human68k と は ディ スク 
フォ ー マ ッ ト に 関し て 完全 な 互換 性 を 持っ て いる わけ で は あり ませ ん . し た が っ て , ディ スク 
フォ ー マ ッ ト に 依存 し た プロ グラ ム は 移植 の 際 に 変更 し な けれ ば な ら な い 場 合 が あり ます . 

な お , ディ スク フォ ー マ ッ ト に 関す る 情報 は DPB (Drive Parameter Block) に 格納 され て お 
り , ここ から セク タ や クラ スタ の 大 き さ な ど デ ィ ス ク フ ォ ー マ ッ ト に 関す る 情報 を 得る こと が で 
きま す . し た が っ て , プロ グラ ム 中 か ら DOS コー ル を 使用 し て , DPB を 参照 する こと で 複数 の 
ディ スク フォ ー マ ッ ト に 対応 する こと が で きま す . 


























/.4. 己 DO コー ル と シス テム コー ル 


Human68k の DOS コー ル は 。 MS-DOS の シス テム コー ル ( こ こ で は , Human68k の DOS コー 
ル と MS-DOS の シス テム コー ル の 両方 を 指す 場合 , ファンクション コー ル と 呼ぶ こと に する ) と 
類似 し て いる 部 分 が 多く , 他 の OS (た と えば UNIX な ど ) か ら 移 植 する 場合 に 比べ ,。 それ ほど 
難し く は あり ませ ん . 

し か し , MS-DOS が CP/M と いう 別 の DOS と の 互換 性 も 考慮 し て いる 関係 で 。 システム コー 
ル と DOS コー ル で は 同じ コー ル 番 号 で も , 機能 が まっ た く 違 う 場 合 が あり ます . 機能 が よく 似 て 
いて も 細か い 仕様 が 違っ て いる 場合 も 多く , 移植 の 際 に は 双方 の ファ ンク ショ ンコ ー ル の マニ ュ 
アル を よく 参照 する 必要 が ある で し ょ う . 

また , 双方 の ファ ンク ショ ンコ ー ル の 呼出 し か た は まっ た く 異 な っ て いま す . MS-C に お ける 
シス テム コー ル の 呼出 し に は , CP/M と の 万 換 性 や セグ メン ト の 関係 で bdos, intdos。 intdoss の 
3 種類 の 関数 が 利用 され ます . また , X-C に お ける DOS コー ル の 呼出 し は , 各 DOS コー ル に 対 
し て 個別 に 関数 が 割り 当て られ て いま す . 

以下 で は , シス テム コー ル を 呼び 出す た め の MS-C の 3 つの 関数 それ ぞ れ に つい て ,。 ど の よう 
な 機能 を 持っ て いる の か を 解説 し ます . 








一 DdOS 関数 の 場合 

bdos 関数 は CP/M コン パチ ブル な シス テム コー ル を 実現 する も の で す . MS-DOS の シス テム 
コー ル (ファ ンク ショ ン 番 号 は 0 て $ 25) を 呼び 出し ます . 次 に bdos 関数 の 呼出 し 形式 を 示し ま 
す . 
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int bdos (funcno, dxreg, alreg) : 


int funcno 
unsigned int dxreg , 


unsigned int alreg , 
E し , dxreg と alrer に は それ ぞ れ AL レジ スタ と DX レ 


ーッ 4 











funcno に は ファ ンク ショ ン 番 号 を 指 
ジス タ (86 系 CPU の レジ スタ ) に セッ ト す る 値 を 指定 し ます . 戻り 値 は シス テム コー ル 終 了 後 の 


AX レジ スタ に 格納 され た 値 で す . 





田 intdO5 関数 の 場合 


intdos 関数 は シス テム コー ル を 直接 呼び 出す 関数 で す . 次 に 呼出 し 形式 を 示し ます . 








int intdos (inregs, outregs) 


union REGS *inregs ii 
union REGS * outregs : 
inregs に は ,。 シス テム コー ル を 呼ぶ 際 に セッ ト す べき レジ スタ の 値 を 格納 し て ある 共用 体 の ポ 


イン タ を セッ ト し ます . outregs に は 実行 後 の レ ジス タ の 値 を 格納 する 共用 体 の ポイ ンタ を セッ 





ト し ます . 戻り 値 は シス テム コー ル 実 行 後 の AX レジ スタ の 値 で す . 
な お これ ら の 共用 体 と 構造 体 は 。dos.h と いう イン クル ー ド ファ イル で 定義 され て いま す . 


田 intdOSx 関数 の 場合 
intdosx 関数 は , intdos 関数 で セグ メン トレ ジス タ も 指定 で きる よう に し た 関数 で す . 次 に その 


呼出 し 形式 を 示し ます . 
int intdos (inregs, outregs, segregs) 
union REGS ※*inregs 
union REGS  ※*outregs : 


struct SREGS * segregs , 
第 三 引数 segregs に は , 各 セ グ メ ント レジ スタ の 値 を 設定 し た 構造 体 の ポイ ンタ を セッ ト し ま 
す . この と き , 変更 きれ る の は ES レジ スタ と DS レジ スタ の み で す . 

さて , これ ら の 関数 に より 実現 きれ て いる 機能 を X-C で 実現 する に は , シス テム コー ル を DOS 
コー ル に 置き 換え な く て は な り ま せん . そこ で , 最も 使用 頻度 が 高い と 思わ れる intdos 関数 に つ 





いて 。X-C へ 移植 する 方 法 を 解説 し ます . 


7.4 DOS の 違い 





・intdos 関数 の 第 一 引数 が inregs で も ある と する と , シス テム コー ル の コー ル 番 号 は , inregs 
-2h.ah に 格納 され て いる の で ,。 それ か ら ど の よう な シス テム コー ル を 呼び 出し て いる の か 
を 調べ る 

・ 呼 び 出さ きれ て いる シス テム コー ル と 同じ 機能 の DOS コー ル を 探し 出す . も し な けれ ば , そ 
の シス テム コー ル の 代わ り と な る プロ グラ ム を 自作 する し か な い 

・ 同 じ 機 能 の DOS コー ル が あっ た ら , inregs の 指し 示す 共用 体 に 格納 され て いる 引数 も 
べ て , DOS コー ル の 仕様 に 合わ せ て 書き 換え る ( 表 7.2) 

















謀 











コー ル 番 号 
MS-DOS Human68k 





と くに Human68k と 異 る MS-DOS の 仕様 













































































EXIT 
GETCHAR 
PUTCHAR 
COMINP 
COMOUT 
PRNOUT 
INPOUT 
INKEY 
GETC 
PRINT 文字 列 の 最後 を 示す 文字 は '$'(Human68k で は $00) 
GETS 文字 列 の 最後 の CR (キャ リッ ジリ ター ン ) は その まま バッ 
ファ に 格納 され る (Human68k で は $00 に 書き 換え る ) 
KEYSNS 
KFLUSHGP 
0CH $FFOC KFLUSHIO 
etc. 
ODH $FFOD FFLUSH | 
OEH $FFOE CHGDRV 
OFH | $FF3D OPEN FCB を 使用 し た ファ イル の オー プン | 
10H | 。sFF3E CLOSE FCB を 使用 し た ファ イル の クロ ー ズ 
11H $FF4E FILES FCB を 使用 し た ファ イル の 検索 (最初) 
12H $FF4F NFILES FCB を 使用 し た ファ イル の 検索 (次 ) 
13H | $FF41 DELETE FCB を 使用 し た ファ イル の 削除 
14H $FF3F READ FCB を 使用 し た ファ イル か ら の 読込 み 
15H $FF40 WRITE FCB を 使用 し た ファ イル へ の 書込み 
16H $FF3C CREATE FCB を 使用 し た ファ イル の 作成 
17H $FF56 RENAME FCB を 使用 し た ファ イル 名 の 変更 ] 
19H $FF19 CURDRV 

















3) 
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コー ル 番 号 
と くに Human68k と 異 る MS-DOS の 仕様 
MS-DOS Human68k 
FCB を 使用 する シス テム コー ル に お いて , ディ スク と 入出 
1AH に ーー ーー 力 す る デー タ を 格納 する バッ ファ の アド レス (DTA) を 指 
定 す る シス テム コー ル 
ラン ダム な 読 次 に 読み 出 ァイル 中 の 位置 が 
21H | SFFSF | READ 了 じ WBIHU ま て を ちせ が いり | し チン 
23H ーーーー ーーーー ファ イル サイ ズ の 計算 
34 $FF42 3 人 7 0 で 生 2 
25H $FF25 INTVCS 
27H | SFFSF | READ 間 に 也 み 出 すこ ど が で まる ) Oone Mo 
5 eg も) 押 Ns 人 上 Po 9 へ の iA み (複数 の レコ ー ド を 同 
29H $FF29 NAMESTS 
2AH $FF2A GETDATE 人 693 くる (Human68k で は 1980 を 引い 
2BH $FF2B SETDATE 年 の 値 を その まま 引数 と し て セッ ト す る 
2CH $FF27 ・ GETTIM2 100 分 の 1 秒 単 位 で 読み 出せ る (ハー ドウ ェ ア が サポ ー ト し 
$FF2C GETTIME て いる 場合 に 限る ) 
2DH $FF28 SETTIM2 100 分 の 1 秒 単 位 で 設定 で きる (ハー ドウ ェ ア が サポ ー ト し 
$FF2D SETTIME て いる 場合 に 限る ) 
2EH $FF2E VERIFY 
FCB を 使用 する シス テム コー ル に お いて , ディ スク と 入出 
2FH ーーー- ーーー 力 す る デー タ を 格納 する バッ ファ の アド レス (DTA) を 読 
み 出 す オシ ステ ムコ ー ル 
30H $FF30 VERNUM 
31H | SFF31 KEEPPR 
33H $FF33 BREAKCK 
35H $FF35 INTVCG 
36H $FF36 DSKFRE 
38H ーー ーー 国 別 情報 の 読 由 し . Human68k に は な い 
39H $FF39 MKDIR 
3AH $FF3A RMDIR 
3BH $FF3B CHDIR 
3CH $FF3C CREATE 
3DH $FF3D OPEN 
3EH $FF3E CLOSE 
3FH $FF3F READ 
40H $FF40 WRITE 
41H $FF41 DELETE 
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コー ル 番 号 











MS-DOS 





Human68k 


対応 する 
X-C の 関数 





SEEK 


7.4 DOS の 違い 





と くに Human68k と 異 る MS-DOS の 仕様 








CHMOD 










IOCTRLGT 
IOCTRLST 
etc. 


デバ イス ドラ イ バ の 仕様 に 依存 する の で 注意 








DUP 








DUP2 














CURDIR 








MALLOC 


確保 され た メモ リブ ロッ ク の セグ メン ト ア ドレ ス が 返っ て 
くる 








MFREE 








SETBLOCK 





4BH 








$FF4B 


LOADEXEC 
LOAD 
etc. 





4CH 


$FF4C 


EXIT2 





4DH 





$FF4D 


WAIT 





4EH 


$FF4E 


FILES 


コー ル 番 号 1AH で 指定 され る DTA(Disk Transfer Address) 
か ら の 領域 を 使用 する 





4FH 


$FF4F 


NFILES 


コー ル 番 号 1AH で 指定 され る DTA(Disk Transfer Address) 
か ら の 領域 を 使用 する 





54H 


$FF54 


VERIFYG 








RENAME 




















FILEDATE 





表 ノ . 己 シス テム コー ル と DOS コー ル の 対応 





それ で は , intdos 関数 か ら DOS コー ル を 利用 し た 関数 へ の 変換 例 を リス ト 7.1 に 示し ます . 


リス ト フ . ] シス テム コー ル か ら DD コー ル へ の 変換 例 


/* 
* for MS-C 
*/ 


#include <stdio.h> 


#include <dos.h> 


char *sample(size) 
unsigned jnt sizei 





intdos を 使用 する と き に イン クル ー ド する 必要 が ある 
#define MALLOC 48 ……… シ ステ ムコ ー ル の コー ル 番 号 





union REGS inregs, outregsi 


inregs.h.ah = MALLOC: 
InTegS.X.bx = size: の - 
intdos(&inregs, &outregs): シス テム コー ル の 呼び 出し 


if (outregs.x.cflag) | 
return (char *)NULLi | 
return (char *)outregs.X.aXi 





エラ ー が 発生 し た ら NULL を 返す 


uec 確保 し た メモ リプ ロッ ク の 先頭 セグ メン ト の 値 を 返す 





うう 3 
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/* 

* for X-C 

*/ 

#include <stdio.h> 

#include <doslib.h> ……………… DOS コ ー ル を 利用 する 場合 は , これ を イン クル ー ド し て , コン パイ ル 時 に /Y オ プシ ョ ン を つけ る 
#define ERRCODE 8199999 ………… MALLOC の エラ ー コ ー ド の 最小 値 





char *sample(size) 
unsigned int size: 
{ 


char *ptri 


ptr = MALLOC(size)i で D08 コ ー ル の 呼び 出し 

if (ptr っ (char *)ERRCODE) エラ ー が 発生 し た ら NULL を 返す 
return (char *)NULL: 

return ptTi it 確保 し た メモ リブ ロッ ク の 先頭 アド レス の 値 を 返す 





Z.4.3 ソフ トウ ェ ア 割 込み 

86 系 の CPU に も ソフ トウ ェ ア 割 込み の 機能 が 存在 し て お り , MS-C か ら で も int86, int86x と 
いう 2 つの 関数 に より , この 機能 が 利用 で きま す . MS-DOS に お ける ソフ トウ ェ ア 割 込み の 用 途 
は , シス テム コー ル の ほか , ROM BIOS 内 の サブ ルー チン を 利用 する な ど が あり ます . つま り , 
ソフ トウ ェ ア 割 込み は , DOS どこ ろか ROM な どの ファ ー ム ウェ ア や ハー ドウ ェ ア に も 依存 する 
機能 な の で , 移植 は 非常 に 困難 で す . どう し て も 移植 し な けれ ば な ら な いな ら ば , 移植 する プロ 
グラ ム が 実行 きれ て いた MS-DOS マシ ン と X68000 双方 の ハー ドウ ェ ア や ファ ー ム ウェ ア の 仕 
様 を よく 調べ , ROM BIOS 内 の サブ ルー チン は X68000 の IOCS コー ル で 代用 する な どの 変更 が 
必要 で す . 








ノ .4.4 プロ セス の 扱い 

MS-DOS で は , 実行 可能 ファ イル が メモ リ 上 に 読み 込ま れる と , その プロ グラ ム の 直前 に PSP 
(Program Segment Prefix) が 作成 され ます . これ は Human68k に お ける プロ セス 管理 ポイ ン 
タ に 相当 し ます が , その 内 容 は まっ た く 異 な る の で PSP を 参照 し て いる プロ グラ ム は 変更 する 
必要 が あり ます . 

また だ た, MS-DOS は 子 プ ロ セ ス 起 動 の 際 に , 親 プ ロ セ ス の 環境 や ファ イル ハン ドル を コピ ー し て 
子 プ ロ セ ス に 渡す の で 。 子 プロ セス が これ ら の 情報 を 変更 し て も 親 プ ロ セ ス に 戻る と き に は も と 
に 戻り ます が , Human68k の 場合 , 子 プ アロ セス が 親 プ ロ セ ス か ら 渡 され た 環境 や ファ イル ハン ド 
ル を 変更 する と , 親 プ ロ セ ス 自 身 の 情 報 も 同じ く 変更 きれ て し まい ます . 

この よう な 違い は DOS レベ ル の 場合 で あり , C 言語 の ライ ブラ リ を 使用 し て 子 プ ロ セ ス を 起 
動 す る 場合 は 互換 性 が 保 た れ て いま す . し た が っ て , シス テム コー ル を 利用 し て 子 プ ロ セ ス 起 動 
を 行っ て いる 場合 に は , と くに 環 境 や ファ イル ハン ドル の 扱い に つい て の 注意 が 必要 で す . 
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7.5 言語 仕様 の 違い 


フロ 仕様 の 違い 


え - じ と MS-C で は 言語 仕様 の 違い は それ ほど あり ませ ん . た だ MS-C で は セグ メン ト の 関係 
で , ポイ ンタ の 扱い が 面倒 に な っ て いま す . 














ノ . ら .1 ボイン タ の 扱い 

MS-C で は , セグ メン ト の 関係 で ポイ ンタ の 修飾 子 と し て , near 型 。far 弄 , huge 型 が あり ま 
す . near 型 の ポイ ンタ は , その 大 き さ が 16 ビッ ト で ある ポイ ンタ で , far 型 と huge 型 の ポイ ン 
クタ は , 32 ビッ ト の 大 き さ を 持っ て いま す . near。 far, huge は 次 の よう に 使わ れ ま す . 


int near ii: 
char far *near s: 
char huge t [86000] : 


注意 する こと は , 修 飾 子 が 定め て いる の は 修飾 子 の 右側 の 変数 を 指し 示す ポイ ンタ の 型 で ある , 
と いう こと で す . 上 の 例 で は , int 型 の 変数 : を 指す ポイ ンタ は near 型 (16 ビッ ト ) に な り , char 
型 の ポイ ンタ s は , それ 自体 が far 型 (32 ビッ ト ) で , s を 指し 示す ポイ ンタ は near 型 (16 ビッ 
ト ) に な り ま す . huge 修飾 子 は , 大 き さ が 64K バイ ト 以 上 に な る デー タ 項 目 を 指す ポイ ンタ に つ 
ける 必要 が あり ます . その た め , char 型 の 配列 変数 で ある t は , 全 要素 の 合計 の 大 き さ が 64K バ 
イト 以上 に な る た め , huge 修飾 子 を つけ る 必要 が あり ます . 

near。 far, huge 修飾 子 が 使わ れる 場合 と し て は , スモ ー ル モデ ル で 64K バイ ト 以 上 の デー タ 
を 扱う と き や , ミディ アム モデ ル や ラー ジ モ デ ル で 関数 呼出 し を 高速 に 行う と き が あり ます . ま 
た 。, huge 修飾 子 は 1 つの セグ メン ト を 超え て し まう デー タ 項 目 に 対し て つけ られ ます . 

え - し の ポイ ンタ の 構造 は こん な に 複雑 で は な く , 単に 指し 示し て いる 変数 の 格納 され て いる ア 
ドレ ス の 値 が ポイ ンタ の 値 そ の も の で す . 

つま り , MS-C と X※-C で は ポイ ンタ の 内 部 構造 が まっ た く < 違う の で , ポイ ンタ その も の の 値 を 
計算 な ど で 利 用 し て いる 場合 に は 注意 が 必要 で す . そう で な けれ ば , これ ら の 修飾 子 を 取り の ぞ 
くだ け で よい は ず で す . 














ノ .5. 己 アセ ン ブ ラ や その 他 の 言語 処理 系 と の リン ク 

アセ ンプ ラ で 作成 きれ た オプ ジェ クト ファ イル を リン ク す る 場合 , 86 系 の アセ ンプ ブリ 言語 で 記 
述 さ れ た 部 分 は , 手 作 業 で 68000CPU の アセ ン ブ リ 言語 で 記述 し な お さ な 1 けれ ば な り ま せん 。 ア 
セン プリ 言語 で 記述 され た 部 分 は ハー ドウ ェ ア や DOS に 依存 する 場合 が 多い の で 。C 言語 の 処 
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理系 や DOS, BIOS,。 ハー ドウ ェ ア の 仕様 を よく 見 て 移植 し て くだ さい . 

また , MS-C で は , pascal, fortran と いう 修飾 子 で MS-PASCAL や MS-FORTRAN と 互換 
性 の ある サブ ルー チン を 作成 する こと が で きま す . pascal, fortran 修飾 子 の 使用 例 を 次 に 示し ま 
す . 




















int pascal pasfunc (int) 


int fortran fortfunc (int, char *) 


この よう に 宣言 する こと で , C 言語 で 記述 され た pasfunc 関数 は , MS-PASCAL で 記述 され た 
プロ グラ ム か ら , また , 同じ く C 言 語 で 記述 され た fortfunc 関数 は , MS-FORTRAN の 記述 さ 
れ た プロ グラ ム か ら 呼 び 出 すこ と が で きる よう に な り ま す . ま た , 逆 に MS-PASCAL で 記述 され 
た pasfunc 関数 を , C 言語 の プロ グラ ム か ら 呼 び 出 すこ と も で きま す . これ ら の 関数 は 通常 の 関 
数 と 比べ , 引数 を スタ ッ ク に 積む 順序 が 逆 に な る な どの 違い が あり ます . 

X-C へ 移植 する 際 に は , pascal 型 や fortran 型 の 関数 の 実体 が MS-C で 記述 て いる 場 
は , これ ら の 修飾 子 を 取り の ぞ き , その 関数 本 体 を X-C 用 に 変更 すれ ば すみ ます . 実体 が PAS- 
CAL や FORTRAN で 記述 され て いる 場合 は , 関数 本 体 を C 言語 で 記述 し な お さ な け れ ば な り 
ませ ん . 














フ . 品 イン クル ー ド ファ イル , ライ ブラ リ の 違い 


CPU の 違い に つい で 問題 に な る の が ライ ブラ リ の 違い で し ょ う . た と えば ぱ ば, 移植 する も と の 処 
理系 の ライ ブラ リ に は いっ て いた 関数 が 移植 先 の 処理 系 に な けれ ば , 自分 で その 関数 を 作成 し な 
けれ ば な り ま せん . また , その 関数 自体 が 移植 先 の 処理 系 また は DOS, CPU の 制限 に より 作成 で 
き な い 場合 に は , プロ グラ ム の アル ゴリ ズム を 変更 し な けれ ば な ら な いか も し れ ま せん 

ここ で は , イン クル ー ド ファ イル や ライ ブラ リ に つい て , 移植 する 際 の 問題 を 解説 し ます . 











一 グロ ー バ ル 変 数 

グロ ー バ ル 変 数 と は , 複数 の プロ グラ ム や 他 の イン クル ー ド ファ イル か ら も 参照 きれ る 変数 で 
す . MS-C で 定義 きれ て いる グロ ー バ ル 変 数 は 表 7.3 の と お り で す . 

MS-C の ほう で 定義 きれ て いる osmajor, osminor は 。DOS の バー ジョ ン を 格納 し て いる だ 
け で す . また , environ と doserrno は , MS-C と X-C で は 同じ 名 前 で す 。 X-C の マニ ュ ア ル が 

一 部 違っ て いる の で 注意 し て くだ さい . また , MS-C の psp に 対応 する も の と し て 。-C SE 員 
PSP が あり ます が , _psp は その プロ セス の PSP (プロ セス 管理 ポイ ンタ と 同じ 働き を する ) の 
存在 する セグ メン ト を 指し て いま す . これ に 対し て PSP は を の プロ セス の プロ セス 管理 ポイ ン 
タ の 先頭 を 指し て いる の で , 名 前 は 似 て いて も その 内 容 は 違う の で 注意 し て くだ きい . 
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7.6 イン クル ー ド ファ イル , ライ ブラ リ の 違い 


































































MS-C X-C 
ファ イル 名 変数 の 名 前 と その 型 ファ イル 名 変数 の 名 前 と その 型 
int daylight: int daylight: 
time.h long timezone : time.h long timezone : 
char * tzname[2] : char * tzname[2] : 
int _doserrno: int _doserrno: 
int errno: int errnO: 
stdlib.h char * syS errlist[] : stdlib.h char * syS errlist[ ] : 
char * jSyS errlist[] : ( 注 ) 
int sys nerr: int sys nerr: 
stdlib.h int _fmode: stdlib.h int fmode: 
stdlib.h unsigned Char -osmajor: な し な し 
unsigned char _osminor: 
氷 H ・ 1 玉 1 < 
stdlib.h char ネ environ: stdlib.h unsigned Char ネ 玉 6nVirOn: 
unsigned int psD: unsigned int_PSP : 

















注 :jSys_errlist は 日 本 語 の エラ ー メ ッ セ ー ジ を 出力 する た め の 配 列 な の で , X-C で は sys erlist に 置き 換え る こと が で き 
る . 


表 ノ .3 グロ ー バ ル 変 数 の 違い 


画 標準 型 

処理 系 に 付属 する イン クル ー ド ファ イル で 宣言 され , 複数 の プロ グラ ム よ り 参 照 さ れる 構造 体 
の こと を 標準 型 と 呼び ます . MS-C に あっ て X-C に な い 標 準 型 や MS-C と X-C で 構造 が 異な る 
標準 型 を 表 7.4 に 示し ます . 





DOSERROR 


な し 


MS-DOS の シス テム コー ル 59H で 返さ れる 値 を 格納 する 





REGS 


SREGS 


REGS 
な し 


同じ REGS で も 中 身 は 全く 違う 
X-C で は 必要 な い 





stat 
timeb 
utimbuf 





stat 
timeb 
utimbuf 





MS-C で は , これ ら の 構造 体 の メン バ に つい て , typedef し た 
特別 な 型 を 一 部 で 使用 し て いる の で , 各 イ ンク ルー ド フ ァ イ 
ル を 参照 する 必要 が ある 





表 フ .4 標準 型 の 違い 


標準 型 の 構造 体 メ ン バ を 直接 アク セス し て いる プロ グラ ム は , 移植 の 際 に 注意 が 必要 で す . MS 
- じ と え %- と の マニ ュ ア ル と イン クル ー ド ファ イル で の 宣言 の 内 容 を よく 見 て 移植 し て くだ さい 。 





男 イン クル ー ド し な けれ ば な ら な い フ ァイル の 違い 


MS-C と %-C で は , 使 




















ます 。 それ を 表 7.5 に まとめ ます . 





H す る 関数 が 同じ で も イン クル ー ド すべ き フ ァイル が 違う 場合 が あり 
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イン クル ー ド ファ イル 名 
MS-C X-C 
DOS.H DOSLIB.H intdos 関数 や int86 関数 な ど 
ERRNO.H ERROR.H 内 容 は ほぼ 同じ 
JCTYPE.H JFCTYPE.H jjiSzen マク ロ な ど 
MALLOC.H STDLIB.H malloc 関数 や sbrk 関数 な ど 
MEMORY.H STRING.H memcpy 関数 や movedata 関数 な ど 
SEARCH.H STDLIB.H lsearch 関数 や qsort 関数 な ど 
SHARE.H ーー 一 sopen 関数 を 利用 する と き に 必要 
STDANSH | ーーー 可変 長 引 数 リス ト を 持つ 関数 を サポ ー ト する 



































表 /.5 イン クル ー ド ファ イル の 違い 


MS-C で は , ハー ドウ ェ ア に 依存 する 部 分 に つい て 記述 し た イン クル ー ド ファ イル は 。 イ ンク 
ルー ド パ ス が 指し 示す ディ レク トリ の 下 の SYS と いう ディ レク トリ に 格納 し て ある の が 普通 で 
5 


田 X※- の ライ ブラ リ に な い 関 数 

MS-C の ライ ブラ リ に は 存在 し て も , X-C の ライ ブラ リ に は な い 関 数 は , 別 の 関数 で 代用 する 
か 。C 言語 また は アセ ンプ ブリ 言語 で その 関数 を 作る し か あり ませ ん . 表 7.6 に 示す 表 は , X-C の 
ライ ブラ リ に な い 関 数 を ピッ クア ッ プ し た も の で す 



























































FP OFF far 型 の ポイ ンタ の オフ セッ ト 部 だ け を 返す 
FP SEG far 型 の ポイ ンタ の セグ メン ト 部 だ け を 返す 
_clear87 浮動 小数 点 ス テー タス ワー ド を 読み 込み 。 クリ ア す る 
_control87 浮動 小数 点 コ ント ロー ル ワ ー ド を 読み 込み , 新た に 設定 する 
_expand メモ リブ ロッ ク を 移動 せ ず に その 大 き さ を 変更 する 
_free _fmalloc で 割り 当て られ た メモ リブ ロッ ク を 解放 する 
_fmalloc デフ ォ ル ト デ ー タ セグ メン ト 外 に メモ リブ ロッ ク を 割り 付け る 
_fmsize _fmalloc で 割り 当て られ た メモ リブ ロッ ク の 大 き さ を 返す 
_fpreset 浮動 小数 点 演算 関数 パッ ケー ジ を 再 初期 化す る 
_freect デフ ォ ル ト デ ー タ セグ メン ト 内 に ブロ ッ ク を 割り 付け る こと の で きる 回 数 を 返す 
_memavl デフ ォ ル ト デ ー タ セグ メン ト 内 に 割り 付け る こと が で きる ブロ ッ ク の 大 き さ を 返す 
_msize calloc, malloc, realoc で 割り 当て られ た メモ リブ ロッ ク の 大 き さ を 返す 
_nfree _nmalloc で 割り 当て られ た メモ リブ ロッ ク を 解放 する 
_nmalloc デフ ォ ル ト デ ー タ セグ メン ト 内 に メモ リブ ロッ ク を 割り 付け る 
_nmsize _nmalloc で 割り 当て られ た メモ リブ ロッ ク の 大 き さ を 返す 
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7.6 イン クル ー ド ファ イル , ライ ブラ リ の 違い 




















_status87 浮動 小数 点 ス テー タス ワー ド を 返す 

alloca スタ ッ ク 上 に メモ リブ ロッ ク を 割り 付け る 

bdos MS-DOS の シス テム コー ル を 呼び 出す 

bessel ベッ セル 関数 を 計算 する (実際 の 関数 は j0, jl, jn, y0, y1, yn の 6 つ ) 

btom 文字 列 に お いて , 指定 し た バイ ト 数 の 間 に あ る 文字 数 を 返す (漢字 は 1 文字 ) 
chkctype 1 文字 の キャ ラク タ の タイ プ を 返す 





dieeetomsbin 


倍 精 度 浮動 小数 点数 を IEEE フ ォ ー マ ッ ト か ら マ イク ロ ソ フト ・ バ イナ リフ ォ ー マ ッ ト へ 変換 する 











difftime 指定 され た 2 つの 時 間 の 差 を 返す 
dmsbintoieee 倍 精 度 浮動 小数 点数 を マイ クロ ソフ ト ・ バ イナ リフ ォ ー マ ッ ト か ら IEEE フ ォ ー マ ッ ト へ 変換 する 
dosexterr 指定 され た MS-DOS シス テム コー ル 59H に よっ て 与え られ た レジ スタ の 値 を 返す 





fieeetomsbin 


単 精度 浮動 小数 点数 を IEEE フ ォ ー マ ッ ト か ら マ イク ロ ソ フト ・ バ イナ リフ ォ ー マ ッ ト へ 変換 する 





































































































fmsbintoieee | 単 精度 浮動 小数 点数 を マイ クロ ソフ ト ・ バ イナ リフ ォ ー マ ッ ト か ら IEEE フ ォ ー マ ッ ト へ 変換 する 

halloc huge 配列 の た め の メ モリ ブロ ッ ク を 割り 付け る 

hfree halloc で 割り 当て られ た メモ リブ ロッ ク を 解放 する 

inp ポー ト か ら 1 バ イト 読み 込む 

int86x セグ メン ト を 変更 し た あと で 指定 され た 8086 ソフ トウ ェ ア 割 込み を 発生 させ る 

int86 指定 され た 8086 ソフ トウ ェ ア 割 込み を 発生 させ る 

intdosx セグ メン ト を 変更 し た あと て で 指定 され た MS-DOS の シス テム コー ル を 呼び 出す 

intdos 指定 され た MS-DOS の シス テム コー ル を 呼び 出す 

jasctime asctime の 漢字 対応 

jctime ctime の 漢字 対応 

jistojms JIS コー ド を シフ ト JIS コー ド (マイ クロ ソフ ト 漢 字 コ ー ド ) に 変換 する 

jperor perror の 漢字 対応 

jstradv 文字 列 の 先頭 か ら 指 定 さ れ た 文字 数 だ け 進 め た ポイ ンタ の 値 を 返す (漢字 は 1 文字 ) 

jstrerror strerror の 漢字 対応 」 

jstrlen 文字 列 の 文字 数 を 返す (漢字 は 1 文字 ) 

jstrmatch strpbrk の 漢字 対応 

jstrncat strncat の 漢字 対応 

jstrncpy strncpy の 漢字 対応 

jstrrev strrev の 漢字 対応 

jalp ある 文字 列 内 に 含ま れ な い 文 字 が , 別 の 文字 列 に 現れ る と ころ の ポイ ンタ の 値 を 返す (漢字 
対応 ) 

jstrstr strstr の 漢字 対応 

jstrtok strtok の 漢字 対応 

jtohire 全角 カタ カナ 文字 を 全角 ひら が な 文字 に 変換 する 

jtokana 全角 ひら が な 文字 を 全角 カタ カナ 文字 を 変換 する 

jtolower 全角 英文 字 を 全角 英 小文字 に 変換 する 

jtoupper 全角 英文 字 を 全角 英 大 文字 に 変換 する 

lfind 配列 内 で リニア サー チ を 行う 

localtime 整数 値 で 与え られ た 時 間 を 地方 時 に 変換 し た あと で 構造 体 に 格納 する 

locking 他 の プロ セス か ら の ファ イル アク セス を 禁止 する 

lsearch 配列 内 で リニア サー チ を 行い , 見 つか ら な けれ ば その 値 を 配列 に 追加 する 

memicmp 英字 の 大 文字 小文字 を 区 別 せ ず に , 2 つの バッ ファ の 内 容 を 比較 する 
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関 数 名 動 作 
mtob 文字 列 に お いて , 指定 し た 文字 数 の 間 に あ る バイ ト 数 を 返す (漢字 は 2 バイ ト ) 
nthctype 文字 列 の キャ ラク タ の タイ プ を 返す 
onexit プロ グラ ム 正 常 終了 時 に 実行 する 関数 の 登録 
outp ポー ト へ 1 バイ ト 書 き 込 む 
remove ファ イル を 削除 する 
rmtmp tmpfile が 作成 し た 一 時 的 な ファ イル を すべ て 削除 する 
segread 現在 の セグ メン トレ ジス タ の 値 を 構造 体 に 返す 
sopen ファ イル を 共有 で きる 形式 で オー プン する 
spawnlpe 環境 変数 PATH, 環境 ボ ポイ ンタ, 引数 リス ト , 実行 ファ イル 名 より 子 プ ロ セ ス 起 動 を 行う 
SDawnvDe 環境 変数 PATH, 環境 ポインタ, 引数 配列 , 実行 ファ イル 名 より 子 プ ロ セ ス 起 動 を 行う 
stackavail alloca に よる ブロ ッ ク 割 付け で 使用 で きる スタ ッ ク の 大 き さ を 返す 
strerror シス テム エラ ー メ ッ セ ー ジ と ユー ザー エラ ー メ ッ セ ー ジ を 結合 ・ 退 避 す る 
stricmp 英文 字 の 大 文字 小文字 を 区 別 せ ず に 2 つの 文字 列 を 比較 する (strcmpi と 同じ ) 
Big 2 の の の か 2 つの 文字 列 の 最初 の 何 文字 か を 比較 する (strcmpi と 
strstr ある 文字 列 内 に お いて , 指定 され た 文字 列 の ある 位置 の ポイ ンタ を 返す 
strtod 文字 列 を 倍 精度 の 値 に 変換 する 
tempnam 指定 され た ディ レク トリ に 対す る 一 時 的 な ファ イル 名 を 生成 する 
tmpnam カレ ント ディ レク トリ に 対す る 一 時 的 な ファ イル 名 を 作成 する 





umask 


ファ イル の パー ミッ ショ ンマ スク を 設定 する 





Va_ard 


引数 リス ト よ り 引 数 を 検索 する 





Va end 


引数 へ の ポイ ンタ を リセ ッ ト す る 





va start 


引数 リス ト の は じ め に ポイ ンタ を 設定 する 





Vfprintf 


フォ ー マ ッ ト 化 し た デー タ を スト リー ム に 出力 する 





Vprintf 


+ 


フォ ー マ ッ ト 化 し た デー タ を 標準 出力 に 出力 する 





VSprintf 








フォ ー マ ッ ト 化 し た デー タ を バッ ファ に 格納 する 


表 フ . X-C の ライ ブラ リ に な い 関 数 





MS-C は 。 と くに セグ メン ト に 関係 し た 関数 と 日 本 語 操作 関数 が 充実 し て いま す . セグ メン ト 
に 関係 し た 関数 は , X-C に は 必要 な いか , ある い は 他 の 関数 で 代用 で きる も の が 多い の で す が , 














340 


日 本 語 操作 関数 は 自分 で 作成 する し か 方 法 は な いで し ょ う . 
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